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Une ligne téléphonique Ro he 
est à votre disposition, 
vous mettant en contact 
direct avec la rédaction. Ceci 
est un service sans égal pour tous 
vos problèmes d'ordre TECHNI- T4 
QUE ! Respectez simplement les ANA 


horaires et les jours que nous vous = 19 AU 
indiquons : F1 Ki La 
MERCREDI de 9h00 à 12h00 et IRSC 
; de 14h00 à 17h00. NS og; 
N & VENDREDI de 9h00 à 12h00 seu-/{”) \ D SR 
af NS cons FD) re: 2, 

À à out appel en dehors de ces cré- i DL 1kær » 

A NN neaux sera refoulé : ne dépensez | REX | 


pas inutilement votre argent ! » « 
Le numéro : “0 


99.52.98.11 a 


La B.A.L. permet un dialogue direct avec 


lo rédaction. ee. ATTENTION ! Pour vos problèmes he + 
ne ge ci ouvrent lg porte aux d'abonnements ou de commandes, 4) 
onnes affaires appelez en dehors de ces créneaux. 













CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement 1 n° hors série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionnement sur les 
"compatibles PC”. 

Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres ! 


[ CPC AMSTRAD 11 numéros 180F 
O 6 numéros 105F 
[ Abonnement essai 3 numéros 55F 
[ AMSTAR 11 numéros 100F 
Ü PCompatibles Magazine 11 numéros 200F 
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Sie]: 7:Veie] |}, 
Service Abonnement 
BP 11 — 35170 BRUZ 
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Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie. 
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ANTI-ERREURS 





Ilest difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs. Quand les erreurs sont signa- 
lées (Syntax error in, Line does not 
exist in..), la correction est facile 
puisque la ligne est indiquée, mais 
lorsqu'au ‘‘’point de vue’” du CPC, le 
programme est correct, il peut en 
être tout autrement pour le lecteur : 
si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impos- 
sible de retrouver l'erreur commise, 
à moins de comparer les lignes de 
votre programme avec celles du 
journal, mais c'est très long et on ris- 
que de passer sur une erreur sans la 
voir. 


C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne 
retrouvez pas Vos erreurs. 

La frappe d’un programme de votre 
journal favori terminée, vous faites 
‘‘RUN'' et là, Vous corrigez toutes 
les erreurs signalées par le CPC en 
vous référant au journal pour com- 
parer. Si, malgré cela, il ne tourne 
toujours pas, suivez cette 
procédure : 

— Sauvez votre programme en 
ASCII grâce à l'instruction : 

SAVE ‘’nom.prog'',A 

Puis, si vous êtes sur K7, réembobi- 


4 


nez la bande jusqu'au début du 
fichier. 

— Chargez Anti-Erreurs. 

— Entrez le nom de votre pro- 
gramme et insérez le support où il se 
trouve (K7 ou disquette). 

Après quelques secondes, les numé- 
ros de lignes vont défiler. Vous 
remarquerez qu'à chaque ligne cor- 
respond un code de 2 lettres sous 
cette forme : 

>XX<, c'est ce code qui va vous 
permettre de savoir d'où proviennent 
les erreurs. Pour cela, il faut que 
vous compariez les codes du journal 
à ceux de l'écran. Si un code diffère, 
notez sur papier le numéro de ligne 
qui correspond à ce code. Continuez 
ainsi jusqu'à la fin du listage. 

Le défilement terminé, rechargez 
votre programme et corrigez les 
lignes que vous avez notées en com- 
parant avec le journal. Faites ‘’RUN”" 
et, oh ! miracle ! ça marche ! 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère (sauf les espaces), car 
Anti-Erreurs les prend en compte et, 
bien sûr, ne tapez pas les codes de 
contrôle. 


N.B. : la ligne 480 contient le 
numéro de canal O pour l'écran ou 
8 pour l'imprimante. 





UMR); LS VB 
26 ‘# # AC: 
30 ‘*#  ANTI - ERREURS # #RD< 
40 ‘4 # CE 
SORRi;;;;;;;;;,);;;);) L) 3CF4 
66 | ?DG 
76 ‘(c)CPC & GREGORY NOE 1987 #LH4 
89 FJ< 
98 ON ERROR GOTO 96 3VÉ< 
169 MODE 2 FE 


110 DIM g$(23) >KC< 
120 FOR I=0 TO 22:READ g$:q$(1)=9$: >XD< 
NEXT 

136 ‘ ATTENTION LA LIGNE DE DATA CI >PEX 
-DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET !!! 

140 DATA A,B,C,D,E,F,G,HJ, KL, MN, ?FF< 


P,G,R, TU, VU, X,Ÿ,2 

156 ‘  ANTI-BUG FICHIER »XG< 
16û IF PEEK(HIMEM+1)=255 THEN 210  >BH 
170 OPENOUT "cpc" ÿLJ4 
180 MEMORY HIMEM-2 >JK< 
190 CLOSEOUT >UL< 
200 POKE HIMEM+1,255 >FCX 
210 DEFINT A-2 >HD< 


22 DE< 
230 BORDER 6: INK 9,1:INK 1,16:PEN 1 >BF< 
:PAPER 0 


240 MOVE 0,16: DRAW 659, 16 HG 
250 PRINT TAB(27) "ANTI-ERR >FH< 
EURS" 

260 MOVE 0,385:DRAN 659,385 ?JJ< 


270 LOCATE 18,25:PRINT"CPC REVUE DU >KK< 
STANDARD AMSTRAD ET SCHNEIDER" 


280 WINDOW 1,80,3,23 ?FL< 
290 n$="Realise par Gregory NOE"  >BM< 
300 f$="" >QD< 
310 FOR i=1 TO LEN(n$) REX 
| 320 F$=F$+MIDS (m$, i, 1) >WF< 


330 LOCATE 70-i,5:PRINT f$ ?XG£ | 530 ‘ CALCUL DE LA CLE DE CONTROLE >FJ£ 
340 FOR t=i TO 199 >LH£ 


350 NEXT t,i ?FJ*< | 546 5 JK€ 
360 HJÉ£ | 550 a=0 3GL£ 
370 HAINE ?FLE | 566 FOR i=1 TO LEN(a$i 3LM£ 
380 ‘ ?LM< | 970 1$=MIDS (a$. i,1) HEN< 
390 LOCATE 2,1:FRINT"ENTREZ LE NOM ON£ | 506 IF 1$=CHR#(32) THEN 600 >JP< 
DU FICHIER : "; 590 a=atAGC (15) Va 
400 INPUT "",NF$ ?TEX | #ÿ@ NEXT i 3PG< 
419 LOCATE 2,3:PRINT"TANT QUE LE LI :UF£ | 419 c=INT(a/22) >DH£ 
STAGE N'EST FAS TERMINE" 620 p=a-(c#23) - SET 
420 LOCATE 2,5:PRINT"NE PAS ARRETE 66 | 636 C$=G$(P) SLK£ 
R LE MAGNETOFHONE OÙ NE" b4ÿ a=ÿ >GL< 
436 LOCATE 2,7:PRINT'FAS SORTIR LA :FH£ | 850 FOR i=i 10 6 :EM< 
DISQUETTE" 668 1$=MID$(a$,i,1) >EN< 
449 LOCATE 2,16:FRINT'PRESSEZ UNE T ?HIJ£ | 670 IF 14<"0" OR 1$:"9" THEN 700  >HP< 
OUCHE POUR LA LECTURE" 688 1i$=11$+1$:a=a+VAL(1$) >HO< 
450 CALL &BBOS 2VE£ | 690 NEXT SUR 
460 OPENIN "!"nf$ #HL< | 796 c=INT(a/25 :DH£ 
470 CLS:PRINT"TRAITEMENT EN COURS.. >EM< | 719 p=a-(c#23) *EJé 
a 724 C$=C$+6$ (P) FVE< 
489 ca=0 ‘ CANAL DE SORTIE :QN< | 7239 : KL 
496 LINE INFUTH#9,b$:a$=UPFERS(b$)  >UP< | 744 IF ca‘ THEN 750 ELSE 776 EM 
500 IF ca{>8 THEN GOSUB 919 UF< | 759 PRINT li$;TAB(16) USING ">\\£"s; AN€ 
519 IF INKEY(66)=ù THEN STDP FUG< | c$ 

920 ‘ GH£ | 740 1i$="":G0TO 840 KP< 


CENDRILLON 


JEU 


Un bal, une citrouille et une marraine ayant quelques pouvoirs magiques. Voilà les 
ingrédients nécessaires au déroulement d'un conte fort célèbre. Le jeu qui vous est 
proposé a été actualisé mais le but est le même pour se rendre au bal. Cendrillon 
doit effectuer des tâches ménagères. A vous de la guider correctement pour qu'elle 
puisse aller s'amuser. 

Chargement : Tapez et sauvez le 1er listing sous le nom ‘’CENDRIO””’, faites de même 
avec le second listing (nom : ‘’CENDRIO1"'). 


Laurent CHABERT 








770 11$="":PRINT#ca, LEFTS(b$,35);T >UQ< 
AB(37} USING "ré" icé 


780 IF LEN(b$)<35 THEN 840 KR 
799 {g=1 DXTÉ 
800 b$=MID$ (b$, 36, LEN(bS) ) >U 
810 PRINTHca, LEFTS(b$,35 >BK 


820 IF fg=1 AND cat>B THEN fg=0:606 >HL< 
UB 919:G0T0 838 

836 GOTO 789 6M< 
84ÿ IF EOF=-i THEN CLOSEIN ELSE GOT :PN< 
0 49 

BS0 CALL &BBO3:PRINT TAB(56) “UNE T >LP< 
DOUCHE... “:CALL &BBOS 

860 CLS:PRINT'MAINTENANT RECHARGEZ  :FQ< 
“sNF$;" ET CORRIGEZ LES LIGNES QUE 

VOUS AVEZ NOTEES,. ." 


870 END ?6R< 
88è “TRAITEMENTS DES ERREURS CT< 
890 ‘ ?TU< 


960 IF ERR=25 THEN CLS:PRINT CHR$(7 ÿAK< 
);CHR$ (24): "FICHIER NON ASCII"; CHR$ 

(24) :END ELSE CONT 

91% com=comti:1F com?19 THEN CALL & :GL< 
BBO3:PRINT TAB(50) "UNE TOUCHE... .": 

CALL $BB95:C0M=1 


20 RETURN > 
19 BK 
20 ‘CENDRILLON ioader >MC4 
30 >AD< 
49 ‘Laurent CHABERT LE 
50 ‘mai 1986 WF 
b >D6< 


79 MODE 1:BORDER 0: INK 0,6:PAPER 0: MH< 
INK 1,14,25: INK 2,25, 16: IN 3,16,14 


80 MOVE 129,22 AJ 
90 FOR i=1 TO 140:READ x,y >êK« 
196 p=p#1:1F p=4 THEN p=i SMEX 
119 DRAW x+20, y-5,p:NEXT >JC< 
129 PLOT 375,230, 1 >QD< 


139 LOCATE 38,25:FOR i=i TO 3:PEN i >TE4 
PRINT". “3 :NEXT 

148 RUN “'cendrioi" >CF< 
150 DATA 96,286,70,275,60,270,55,26 >RG< 
9, 45,298, 40,290, 39, 244, 30,226, 32,21 

8,34,205, 36,206, 358, 185, 42, 182,50, 18 
9,60,175,70,170,80,170,86,175,94,17 
8,194,180,116,182,120,186 

160 DATA 125,205,136,208,142,210,15 >HH< 
0,215,1955,220, 153,222, 146,230, 149,2 
32,130,224,124,218, 125, 295, 130, 190, 
146,188, 148, 186,154, 188, 162, 190 

170 DATA 175,192,178,204,189,212,17 >FJ< 
8,220, 176,230, 180,240, 190,238, 198,2 
22,200,210,202,198,206,210,198,222, 
202,258,210,240, 220, 230, 22b, 200, 238 

+204 





180 DATA 246,210, 250, 230,258, 240,27 >UK< 
0,234, 258, 240, 250, 230, 246, 210, 252, 2 

00, 268, 204, 270, 210, 274, 226, 260, 300, 
274,220, 280, 208, 290, 214 

190 DATA 302,222, 306, 254,304, 256,30 DGL£ 
0,256, 302, 248, 306, 250, 314, 254, 322,2 
58, 326, 254, 322, 240, 326, 215, 340, 227, 
350, 230 

200 DATA 395, 240, 355, 240, 355, 240, 34 
0,232, 370, 238, 380, 242 

214 DATA 399,254, 195,270, 409, 285, 40 >ND< 
4,300, 496,320, 398, 330, 380, 328, 376,3 
20,380, 300, 386, 284, 395, 270, 400, 250, 
419,240, 422, 246 

220 DATA 430, 255,436, 270, 440, 288, 44 
4,302, 446, 320,440, 340, 424,338, 420,3 
20,426, 300, 430, 282, 436, 270, 446, 258, 
454,250, 440, 260 

230 DATA 470,275, 474,282, 480, 290, 49 >EF< 
Ô, 286, 480, 296, 474, 282, 470, 275, 472,2 
60,480, 256, 484, 258, 490, 262, 494, 272, 
490, 284, 500, 294 


>XCX 


?RE< 


24% DATA 506,300,516,290,522,260,51 :VG< 
6,290,9520,300,530,306,540, 296, 546, 2 

bb, 569, 270 

. . 
Listing 2 

1° ?WB< 
2 “CENDRILLON >HC< 
3° ?YD< 
4 ‘Laurent CHABERT 3 JE< 
5 ‘Mai 1986 >UF< 
6 ‘ >EG< 
19 ON BREAK GOSUB 410 UB< 
15 GOSUB 65096: RESTORE >KG< 
26 GOTO 880 DWC< 
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oite 


Un message 
Du linge sec 


30 ‘## TEST OBJETS EN POCHE #+# 

46 PRINT#2:PRINT#2:PRINT#2 

90 IF ccleja=d AND cclebu=® AND cla 
a=0 AND poch$="" THEN PRINT#2,"Tu n 
e":PRINT#2, "transportes":PRINT#2, "r 
ien.":RETURN 


66 PRINT#2,"Tu transportes":PRINT#2 : 


79 IF clam<>0 THEN PRINT#2, "Une lan : 


pe" 


89 IF ccleja=i AND cclebu=i THEN FR : 


INT#2, "Deux cles" 

9 IF ccleja=i AND cciebu=û THEN PR 
INT#2, “Une cle" 

190 IF ccleja=ô AND cclebu=i THEN P 
RINT#2, "Une cle" 

119 IF poch$<>"" THEN PRINT#2,poch$ 


120 RETURN 

130 ‘#+ TEST VISITE BELLE-MERE #+# 
149 tps=tpsti:LOCATE #3,1,1:PRINT#S 
"Temps :"stps:IF tps=b0 THEN CLS:P 
RINT'"Tu n'es pas allee voir":PRINT" 
ta belle-mere depuis plus d'une heu 
re, ":PRINT'tu es privee de bal.":60 
TD 50000 

150 RETURN 

169 ‘*x+ TEST TACHES EFFECTUEES #+* 
170 t=t-i: 


180 IF t>i THEN PRINT'IL te reste"; : 


t;"taches a effectuer." 

190 IF t=i THEN PRINT'II ne te rest 

e qu'une tache a effectuer." 

260 IF t=0 THEN PRINT"Tu as termine 
ton travail, retourne":PRINT"dans 
ta chambre, pour te preparer." 

219 RETURN 

220 ‘## TEST VOCABULAIRE ## 

230 esp=0 

240 FOR i=i TO LEN(act$) 

290 IF MID$(act$,i,12=" “ THEN esp= 


>ID< 
GE 
>< 


2JL< 


JYC< 


>GD< 
TE 
>HF< 
ANG< 
>DH< 


i 

260 NEXT i >RJ< 
270 IF esp=0 THEN PRINT"Je ne compr >NK< 
end pas !":RETURN 

280 actg$=LEFT$(act$,esp-i):ver$=LE >XL< 
FT$ (actg$,4) 

290 actd$=RIGHTS(act$,LEN(act$)-esp :NM< 
):0b j$=LEFTS (actd$, 4) 

360 ver=ÿ: ob j=0 >FD< 
310 RESTORE 39090 ?ME< 
320 FOR i=i TO 15 +AF< 
>KG< 


336 READ dat$:IF dat$=ver$ THEN ver 

= 

340 NEXT i >0H 
350 FOR i=1 TO 28 >HJ< 
36% READ dat$:IF dat$=obj$ THEN obj >2K< 
=i 

370 NEXT i ?UL£ 
380 IF ver=6 THEN PRINT'Je ne compr :PM£ 
end pas "sactg$;" !" 

396 IF obj=6 THEN PRINT'Je ne compr :TN< 
end pas "yactd$;" !" 

460 RETURN ?HEX 
419 WINDOW #6,1,40,1,25:MODE 2:INK ?>2F< 
0,13: PAPER 9: INK 1,0:PEN 1: BORDER 1 
3:LIST 

420 ‘*+# DESSIN ARMOIRE #* ?EG< 


421 FOR x=0 TO 20 STEP 2:MOVE x,0:D > TH 
RAN x,280,2:NEXT x 

422 FOR x=20 TO 140 STEP 2:MOVE x,1 >GJ 
O:DRAW x,280,2:NEXT x 

423 FOR x=140 TO 160 STEP 2:MOVE x, >MKX 
0: DRAM x,280,2:NEXT x 

424 MOVE 10,20: DRAW 10,270, 1:DRAW 1 >WL< 
50,270, 1:DRAN 150,20, 1:DRAW 10,20:M 

OVE 80,29:DRAN 80,270, 1 


425 MOVE 60,140:DRAW 70,140, 1: MOVE >BM£ 
90,140: DRAM 190, 140,1 

42 RETURN >RN 
430 ‘## DESSIN LIT #4 >LH< 


431 FOR y=26 TO 50 STEP 2:MOVE 180, 
y: DRAW 370,y,3:NEXT y 

432 FOR x=170 TO 189 STEP 2:MOVE x, 
O:DRAW x,100,2:NEXT x 

433 FOR x=370 TO 380 STEP 2:MOVE x, ?TL4 
O:DRAW x,149,2:NEXT x 

434 FOR i=1 TO 360 STEP 15:0RIGIN 3 >QM< 


2WI< 


2HK< 


$ |955,65:DRAH C0S(i)*#14,SIN(i)#14,3:NE 


XT i 
435 ORIGIN Ô,0:RETURN ?CN 
440 ‘#+ DESSIN TABLE #4 >AJX 


441 FOR x=145 TO 160 STEP 2:MOVE x, >GK< 
0:DRAW x,100,2:MOVE x+95,0:DRAW x+9 
9,100,2:NEXT x 

442 FOR y=100 TD 110 STEP 2:MOVE 10 >GL< 
9,y:DRAW 300,Y,3:NEXT y 

443 RETURN >QM< 
450 ‘## DESSIN ASPIRATEUR ## >WKX 
451 MOVE 196,0:DRAW 244,0,2:MOVE 19 >PL< 


b,2:DRAW 244,2,2:MOVE 198,4:DRAW 24 
2,4,2:MOVE 214,6: DRAW 226,6,2 
452 FOR y=8 TO 59 STEP 2:MOVE 218,y >BM< 
:DRAW 222,y, S:NEXT y 
453 MOVE 206,52: DRAW 234,92,2:MOVE >QN< 
206,54: DRAM 234,54,2:MOVE 204,56: DR 
AW 236,56,2:MOVE 204,58: DRAW 236,58 
2 
L 
454 FOR y=60 TO 129 STEP 2:MOVE 292 >CP< 
,V!DRAW 238,y,2:NEXT y 
455 MOVE 204,122: DRAN 236,122,2:M0V >TQK 
E 204,124: DRAW 236,124,2:MOVE 206, 1 
26:DRAW 234,126,2:MOVE 206, 128: DRAM 
234,128,2 
456 FOR y=130 TO 150 STEP 2:MOVE 21 > JR 
8,y:DRAW 222,y,3:NEXT y 
457 FOR y=79 TO 119 STEP 2:MOVE 218 ?GT4 
.Y:DRAW 222,Y,3:NEXT y 
458 MOVE 218,152: DRAW 222,192,2:PLO ?CUK 
T 220,154,2 


459 RETURN 2YVK 
800 ‘*## INTERROGATION #+ ?LJX 
801 act$="":PRINT >AK< 


892 LOCATE 1,VPOS (#0) :PRINT"?;"sact >RL< 
$s"<e "s 

803 IF LEN(act$)=26 THEN SOUND 4,29 >JM< 
0,50,7:S0UND 1,290/3,50,7: SOUND 2,2 
00/5,50,7:PRINT" ":PRINT'Cette phra 

se est trop longue !“:60T0 890 

894 in$=INKEY$: IF in$="" GOTO 804  >TN< 
805 IF in$=CHR$(13) GOTO 870 >KP< 
866 IF in$=CHR$(127) AND LEN(act$)= >XQ< 
9 THEN SOUND 4,109, 19,7:SOUND 1,100 
13,10,7:SOUND 2,169/5,10,7:G0T0 804 


807 IF in$=CHR$(127) AND LEN(act$)} >G6R< 
0 THEN act$=LEFT$ (act$,LEN(act$)-1) 
:60T0 802 

898 act$=act$+in$:GOTO 802 3 JT 
874 PRINT “ ":act$=UPPERS (act$):RET >YR 
URN 

880 ‘#+ DEBUT ## >DT< 
885 ENV 1,2,1,2,2,-1,2:ENV 2,2,-2,4 >2V< 
890 GOSUB 40009 >HU< 
891 MODE 1 AAA 
895 DEG | )6ZK. 
900 WINDOW #0,1,40,1,6:PAPER O:PEN >GK< 
2:CLS 

910 WINDOW #1,1,25.7,25:PAPER #1,1: >TL< 
PEN #1,2:CLS #1 

920 WINDOW #2,26,46,7,24:PAPER #2,3 >FM< 
PEN #2,2:CLS #2 

930 WINDOW #3,26,40,25,25:FAPER #3, >PN 
J:PEN #3,2:CLS #5 

940 brk=6:fp=0:t=8:gri=û:clam=d:ccl ?EP< 


ebu=ÿ:ccleja=0:cof2=0:cofB=0: arm4=û 
:armb=Ÿ: arm7=0: arm9=0: armi0=0: ref=0 
:con=0: portcav=0: port ja=ù 


9% clebu=i:cleja=i:aspdef=i:aspbon }VQ 

=i:lam=i:dra=i:ser=1: linsal=i:linse 
c=i:via=i:boi=i:bou=i 

991 coef=12 ?6R< 
960 poch$="" ?BR< 

970 tps=ÿ:LOCATE #3,1,1:PRINT#3,"Te >FT4 
aps :"stps 

989 EVERY 250,3 GOSUB 139 >AU< 
990 GOTO 16000 ?DV£ 
1009 ‘#4 GRENIER #1 #+ >WB< 
1905 BORDER 1:INK 0,1:INK 1,15:INK  }>ZG4 

2,26: INK 3,0 

1916 CLS #1:CLS #2 , ?1C{ 
1926 LOCATE #1,8,1:PRINT#1, "GRENIER :GD< 
N. i" 

1029 CLS #2 >KN£ 
1936 PRINT#2, "Gauche":PRINT#2, "Droi ?EE 
te": PRINT#2, "Bas": PRINT#2: PRINT#2, " 

Un message" 

1040 GOSUB 36 ?PF< 
1050 GOSUE 896 >VG< 
1970 IF act$="DROITE" GOTO 2000 >HJ< 
1680 IF act$="BAS" GOTO 6069 >EK< 


1099 IF act$="GAUCHE" THEN gri=1:60 >QL< 
TO 11000 


1109 IF act$="HAUT" GOTO 1149 UC 
1110 GOSUB 220 ?QD< 
1120 IF esp=ô OR ver=6 OR obj=0 GOT >CEX 
0 1950 

1130 IF ver$="LIRE" AND obj$="MESS" > XF< 
THEN PRINT'Faire du feu.":G60TO 105 

0 

1146 PRINT" Impossible !":G60T0 1950 >AB< 
2000 ‘## GRENIER #2 ## PYC< 
2005 BORDER 0: INK 0,0: INK 1,13: INK 2>ZH< 
2,26: INK 5,3 

2010 CLS #1:CLS #2 AD 


2029 LOCATE #1,8,1:PRINT#1, "GRENIER JE 
N. 2" 
2921 FOR y=8 TO 60 STEP 2:MOVE 120, >KF4< 
y: DRAW 289,y,3:NEXT y 
2022 FOR y=0 TO 6ÿ STEP 19: MOVE 120 ;:QG< 
,Y:DRAW 289,y,0:NEXT y:MOVE 120,0:D 
RAW 120,60,0:MOVE 289,0:DRAW 280, 60 

() 

1 
2023 x1=122:x2=278:F0R y=62 TO 76 S >KH< 
TEP 2:MOVE x1,y:DRAN x2,y,3:x1=x1+6 
:x2=x2-b:NEXT y 


2925 MOVE 120,60: DRAW x1,y,0:DRAH x >NK£ 
2,y,9:DRAW 289,69,9 

2029 CLS #2 ?LP< 
2030 PRINT#2, "Gauche" :PRINT#2 )NF< 
2640 PRINT#2,"Un coffre" >NG< 
2950 IF clebu=1 AND cof2=i THEN PRI >GH& 
NT#2, "Une cle" 

2060 GOSUB 30 >TJé 
2076 GOSUB 800 >BK< 
2090 IF act$="GAUCHE" G0TO 1909 >6M< 


2100 IF act$="HAUT" OR act$="DROITE >DD< 


"OR act$="BAS" GOTO 2160 

2116 GOSUB 220 REX 

2120 IF esp=0 OR ver=ÿ OR obj=0 GOT >GF< 
0 2970 

2130 IF ver$="OUVR" AND obj$="COFF" :MG< 
AND cof2=i THEN PRINT'Le coffre es 

t deja ouvert.":G0T0 2ÿ70 

2149 IF ver$="OUVR" AND obj$="COFF" >KH< 
AND cof2=0 THEN PRINT'I1 y a une c 

le a l'interieur.":cof2=1:60T0 2029 


2159 IF ver$="PREN" AND obj$="CLE" 
AND cof2=1 AND clebu=i THEN PRINT'"D 
‘accord.":clebu=b:cclebu=1:G0TD 202 
9 

2168 PRINT"impossible !":G0T0 2970 
3000 ‘#+ GRENIER #3 ## 

3005 BORDER 13:INK 0,13: INK 1,2: INK 
2,0:INK 3,26 

3019 CLS #1:CLS #2 *BE< 
3626 LOCATE #1,8,1:FRINT#1, "GRENIER >LF< 


N. 3" 


2NJ 


?GK£ 
AD 
?FJ< 


3036 PRINT#2, "Droite":PRINT#2 ?TG< 
3048 IF aspdef=i THEN PRINT#2,"Un a :YH< 
spirateur":GOSUB 450 

3050 GOSUB 39 ?TJ< 
3066 GOSUB 860 ?BK< 

3080 IF act$="DROITE" GOTO 4960 ?NM< 
3096 IF act$="HAUT" OR act$="GAUCHE >HN< 
" OR act$="BAS" GOTO 3130 

3106 GOSUB 226 RES 
3110 IF esp=6 OR ver=ÿ OR obj=0 GOT >GF4 
0 3066 

3120 IF ver$="PREN" AND obj$="ASPI" :NG< 
AND poch$="" THEN PRINT"D'accord." 
:aspdef=0:poch$="Aspirateur":G0TO 3 

910 

3136 PRINT"Impossible !":G0TO 3060 >EH< 
4000 ‘+## GRENIER #4 ## ?CE< 


4005 BORDER 0: INK 0,0: INK 1,2:INK 2 >UK4 
,25: INK 3,1 

4010 CLS HI:CLS #2 >CF 
4020 LOCATE #1,8,1:PRINT#1, "GRENIER >NG< 
N, 4" 


4621 GOSUB 420 >XH€ 
4029 CLS #2 ?NR< 
4639 PRINT#2, "Gauche":FRINT#2, "Droi >UH< 
te": PRINT#2 

4040 PRINT#2,"Un message":PRINT#2," >LJ< 
Une armoire" 

4050 IF arm4=i AND cleja=i THEN PRI >GK< 
NT#2, “Une cle“ 

4669 GOSUB 30 ?VL£ 
4970 GOSUB 800 >DM£ 
4690 IF act$="GAUCHE" GOTD 3066 )LP4 
4199 IF act$="DROITE" GOTO 5900 ?HF£ 


4110 IF act$="HAUT" OR act$="BAS" 6 >CG< 
OTO 4180 


4120 GOSUB 220 ?VHK 


4130 IF esp=6 OR ver=0 OR obj=0 GOT >MJ< 
0 4070 

4140 IF ver$="LIRE" AND obj$="MESS" >MK< 
THEN PRINT"Passer l'aspirateur dan 

S":PRINT"la salle a manger.":6070 4 

070 

4150 IF ver$="OUVR" AND obj$="ARMO" >FL< 
AND arm4=0 THEN PRINT"IL y a une c 

le a l'interieur.":arm4=i:60T0 4929 


4160 IF ver$="OUVR" AND ob j$="ARMO" ; 
AND arm4=i THEN PRINT'Elle est dej 
a ouverte":G60T0 4970 

4179 IF ver$="PREN" AND ob j$="CLE" 
AND are4=i AND cleja=i THEN PRINT'D 
‘accord.":cleja=d:ccleja=1:G0TO 402 
9 

4180 PRINT"Impossible !":GO0TO 4479 
9000 ‘++ GRENIER #5 ## 

0005 BORDER 9:INK 9,9:INK 1,8:INK 2 
595 INK 3,25 

9010 CLS #1:CLS #2 

5029 LOCATE #1,8, 1: PRINT#1, "GRENIER 
N. 5" 


>BN€ 


?NP< 
EF< 
>VL< 


?DG< 
>QHK 


5021 GOSUB 440 >AT< 
5029 CLS #2 ?PTÉ 
9030 PRINT#2, "Gauche":PRINT#2, "Bas" >HJ< 
:PRINT#2 

5040 PRINT#2, "Une table" ?HK< 


5050 IF lan=1 THEN PRINT#2, ‘Une lan 
pe":FOR y=112 TO 136 STEP 2:MOVE 22 
0,y:DRAW 234,y,2:NEXT:FOR y=122 TO 
126 STEP 2:MOVE 224, y:DRAW 230, y, 3: 
NEXT 


EL£ 


3960 GOSUB 3 2WM< 
5070 GOSUB 800 EN 
5096 IF act$="GAUCHE" GOTD 4966 ?NO< 
9190 IF act$="BAG" GOTO 16600 2NG< 
9110 IF act$="HAUT" OR act$="DROITE ?NH< 


“ GOTO 5150 

5126 GOSUB 220 

9136 IF esp=ÿ OR ver=0 OR abj=à GOT 
0 5076 

9149 IF ver$="PREN" AND ob j$="LAMP" 
AND lam=i THEN PRINT"D'accord.":1a 
m=û:clam=2:FOR y=112 TO 130 STEP 2: 
MOVE 220,y:DRAW 234,y,1:NEXT y:60T0 
5029 

9150 PRINT"Iapossible !":6010 5976 
6000 ‘#4 LINGERIE ## 

6005 BORDER 26:INK 0,26: INK 1,14:IN 
K 2,1:INK 3,17 

6910 CLS #1:CLS #2 

6026 LOCATE #1,19,1:PRINT#1, "LINGER 
IE" 

6021 GOSUB 420 ?1K< 
6929 CLS #2 ?QU< 
6030 PRINT#2, "Droite":PRINT#2, "Haut >DK< 
“2 PRINT#2, "Bas": PRINT#2 


2MM< 
>HG< 
?IM< 


?EH< 
?RJK 


8 


604% PRINT#2, "Un message":PRINT#2," >NL< 
Une armoire" 

6056 IF armb=1 AND dra=i THEN PRINT :FM< 
#2,"Des draps" 

6066 IF armb=1 AND ser=1 THEN PRINT >RN< 
#2,"Des serviettes" 


6079 GOSUB 3 >YP< 
6086 GOSUB 800 GK 
6100 IF act$="HAUT" GOTO 1060 >UHK 
6110 IF act$="BAS" GOTD 12000 >1J< 
6120 IF act$="DROITE" GOTO 7060 >PKK 
6136 IF act$="GAUCHE" GOTO 6228 ?QL< 
6149 GOSUB 229 >1Mé 


6156 IF esp=0 OR ver=6 OR obj=0 GOT >VN< 
0 6089 

6160 IF ver$="LIRE" AND obj$="MESS" 
THEN PRINT"Prendre la viande dans 
le congelateur":PRINT'"et la ranger 
dans le refrigerateur.":60T0 8080 
6176 IF ver$="OUVR" AND obj$="ARMO" : 
AND armb=ô THEN PRINT'IL y a des s 
erviettes et":PRINT'des draps a l'i 
nterieur.,":armb=1:G0TO 6029 

6180 IF ver$="OUVR" AND ob j$="ARMD" 
AND armb=1 THEN PRINT'Elle est dej 
a ouverte.":G60T0 6680 

6199 IF ver$="PREN" AND ob j$="SERV" 
AND armb=i AND ser=i AND poch$="" 
THEN PRINT"D'accord. ":ser=0: poch$=" 
Serviette":G0T0 46929 

6200 IF ver$="PREN" AND obj$="DRAP" > 
AND armb=i AND dra=i AND poch$="" 
THEN PRINT"D'accord. ":dra=ÿ:poch$=" 
Draps":G0TO 6529 

6216 IF ver$="RANG" AND ob j$="LING" 
AND armb=1 AND poch$="Linge sec" T 

HEN PRINT"D accord. ":poch$="":G60SUB 
160:G60T0 6929 

6229 PRINT" Impossible !":G0T0 608û 
7409 ‘## CHAMBRE DE LA BELLE-MERE * 

# 

7665 BORDER 25: INK 0,29: INK 1,16: IN 

K 2,3:INE 3,17 


?MP£ 


>RR€ 


2NT< 


>BK< 


2NL£ 
>UH< 


?CN< 


7016 CLS #1:CLS #2 >FJ< 
7926 LOCATE #1,1,1:PRINT#1, "CHAMBRE >AK< 
DE LA BELLE-MERE" 

7021 GOSUB 426:G0SUB 436 ?NL< 
7029 CLS #2 3RV€ 
7039 PRINT#2, “Gauche":PRINT#2, "Droi :XL< 
te": PRINT#2 

7046 PRINT#2,"Un 1it":PRINT#2, "Une >FMK 
araoire" 

7056 GOSUB 36 ?XN< 
7660 GOSUB 890 ?FP4 
7089 IF act$="HAUT" OR act$="BAS" G >LRK 
0TO 7140 

7090 IF act$="GAUCHE" GOTO 6000 ?TTK 
7106 IF act$="DROITE" G60TO 8000 >PJ< 
7116 GOSUB 220 ?XK< 


7120 IF esp=0 OR ver=0 OR obj=6 GOT >RL< 

0 7060 

7130 IF ver$="RANG" AND obj$="BOUI" 
AND poch$="Bouillotte" AND ara7=i 
THEN PRINT"D'accord. ":poch$="":GOSU 

B 169:G0T0 7029 

7131 IF ver$="OUVR" AND ob j$="ARMO" 
AND arm/7=0 THEN PRINT'Elle ne cont 
ient rien d'interessant. “:arm7=1:60 

TO 7060 

7132 IF ver$="OUVR" AND ob j$="ARMO" 
AND arm7=i THEN PRINT'Elle est dej 

a ouverte.":60TD 7060 

7149 PRINT"Impossible !":G0T0 7969 >PN< 

8000 ‘## SALLE DE BAIN ## ?1J€ 

8005 BORDER 16: INK 9,16: INK 1,26: IN >TP< 

K 2,2:INK 3,0 

8019 CLS #1:CLS #2 ?GK< 
8020 LOCATE #1,7,1:PRINT#1, "SALLE D >ML< 

E BAIN" 

8021 FOR y=0 TO 110 STEF 4:MOVE 100 
,Y:DRAW 199,y,2:MOVE 190,y+2:DRAW 1 
90,y+2,0:NEXT y 

8022 MOVE 106,40: DRAW 190,0,3:DRAN 1 
90,110,3:DRAW 169,110,3:DRAW 100,0, 

3 

8923 FOR y=93 TO 96:MOVE 109, y: DRAW 
198,y,3:NEXT y 

8024 MOVE 220,140:DRAW 229,169, 2: M0 

VE 222,138:DRAM 222,162,2: MOVE 224, 
138: DRAW 224,162,2: MOVE 226, 140: DRA 

W 226, 160,2 

8025 MOVE 3206,140:DRAW 320, 169, 2: M0 

VE 322,138:DRAW 322,162,2:MO0VE 324, 
138:DRAW 324,162,2:MOVE 326, 140: DRA 

W 326, 160,2 

8026 MOVE 220,156:DRAW 329, 156, 2: MO 
VE 220,144: DRAW 326,144,2 

8929 CLS #2 

8039 PRINT#2, "Gauche": PRINT#2, "Droi 
te":PRINT#2 

8040 PRINT#2, "Un message": PRINT#2," >GN< 
Un coffre & un":PRINT#2, "Porte-serv 
iette" 

8059 IF cof8=1 AND linsal=i THEN PR >RP# 
INT#2, "Du linge sale" 

8060 GOSUB 30 > I 
8970 GOSUB 800 >HRKK 
8096 IF act$="HAUT" OR act$="BAS" G >VUK 

OTO 8190 


> TM< 


?FN& 


>PP< 


>XM< 


2JN< 


a 


>UP4 
LA Lt 


> JQ 


?UR< 


LT 


?TK 
2YM< 


8160 IF act$="GAUCHE" GOTD 7600 ?LK< 
8116 IF act$="DROITE" GOTO 9900 ?TLX 
8126 GOSUB 220 >IM< 


8130 IF esp=0 OR ver=ÿ OR obj=0 GOT >WNKK 
0 8070 

8149 IF ver$="LIRE" AND obj$="MESS" >LP4 
THEN PRINT"Ranger le linge sec dan 

5 la lingerie.":60T0 8070 

8150 IF ver$="OUVR" AND obj$="COFF" ?NQK 


AND cof8=i THEN PRINT"Il est deja 
ouvert.":60TD 8070 
8160 IF ver$="OUVR" AND obj$="COFF" >PR< 
AND cof8=0 THEN PRINT"IL y a du li 
nge sale a l‘interieur.":cof8=1:G0T 
0 8029 
8170 IF ver$="PREN" AND obj$="LING" >WT< 
AND cof8=i AND linsal=i AND poch$= 
“* THEN PRINT"D'accord.":linsal=0:p 
och$="Linge sale":G0TD 8029 
8180 IF ver$="ACCR" AND obj$="SERV" XX 
AND poch$="Serviette" THEN PRINT"D 
‘accord.":poch$="":GOSUB 160:60T0 8 
029 
8190 PRINT"Iapossible !":G0T0 8070 
9000 ‘## CHAMBRE DES SOEURS ## 
9005 BORDER 15: INK 0,15: INK 1,14:IN 
K 2,0: INK 3,6 
9010 CLS #1:CLS #2 
9020 LOCATE #1,5,1:PRINT#1, "CHAMBRE 
DES SOEURS" 
9021 GOSUB 430:60SUB 420 


?YVK 
FXKK 
?T 


?HL< 
>HM< 


?XN< 


9029 CLS #2 ?UX< 
9030 PRINT#2, "Gauche" :FRINT#2 >WN< 
9040 PRINT#2,"Un 1it":PRINT#2,"Une HP 
arsoire" 

9050 GOSUB 30 >1K 
9060 GOSUB 800 >HR< 


9089 IF act$="HAUT" OR act$="BAS" O >YUK 

R act$="DROITE" GOTO 9130 

9090 IF act$="GAUCHE" GOTO 8900 

9100 GOSUB 220 

9110 IF esp=ù OR ver=0 OR obj=6 GOT 

0 9060 

9120 IF ver$="FAIR" AND obj$="LIT" 
AND poch$="Draps" THEN PRINT"D'acco 
rd.":poch$="":G0SUB 169:60T0 9929 
9128 IF ver$="OUVR" AND ob j$="ARMO" 
AND arm9=1 THEN PRINT'Elle est dej 
a ouverte.":G0T0 9960 

9129 IF ver$="OUVR" AND obj$="ARMO" 
AND arm9=9 THEN PRINT'Elle est vid 

e.":ara9=1:G0TD 9060 

9130 PRINT'Iapossible !":G0T0 9060 
19000 ‘## CHAMBRE DE CENDRILLON ## 
10005 BORDER 14: INK 0,14:INK 1,16:1 
NK 2,1:INK 3,25 

19010 CLS #1:CLS #2:1F tpsti THEN C 
LS:LOCATE 1,6 

10026 LOCATE #1,3,1:FRINT#1, "CHAMBR 
E DE CENDRILLON" 

19025 GOSUB 420:G0SUB 439 

19030 PRINT#2, "Haut":PRINT#2, "Bas": 
PRINT#2:PRINT#2, "Un message": FRINT# 
2,"Un lit“:PRINT#2, "une armoire" 
19040 GOSUB 39 

10045 IF t=0 THEN CLS:PRINT"Tu as t 
eraine ton travail,":PRINT"tu peux 
te preparer pour aller au bal.":fp= 


FKV& 
2YL< 
>WMé 


>IN 


?BX< 


?JV 


>TP4 
>NB< 
>QG< 
>HC< 
>XD< 
VI< 
?TE4 


>RF< 
MYLE 


iscoef=10:GOTD 50090 

19050 GOSUB 864 >AGX 
19070 IF act$="DROITE" OR act$="GAU >YJ< 
CHE" GOTO 19150 


10080 IF act$="HAUT" GOTD 5009 >CK< 
19090 IF act$="BAS" GOTD 16000 >HL< 
19100 GOSUB 220 PRC< 


10119 IF esp=0 OR ver=0 OR obj=0 60 >FDX 
TO 10050 

19120 IF ver$="OUVR" AND obj$="ARMO >XE4 
“ AND armi9=0 THEN PRINT'Elle est v 
ide.":arm10=1:G0T0 10050 

19130 IF ver$="OUVR" AND obj$="ARMO >YF4< 
“ AND armiô=1 THEN PRINT"Elle est d 

eja ouverte.":60T0 10050 

19140 IF ver$="LIRE" AND obj$="MESS >QG< 
“ THEN PRINT'Faire le lit des soeur 
s.":G0T0 19050 

19150 PRINT" Impossible !":G0T0 1965 >FH< 
C 

11000 ‘#4 JARDIN ## ?RC< 
11005 BORDER 2: INK 0,2: INK 1,18: INK >HH< 
2,0:INK 3,26 

11919 CLS #1:CLS #2 ?CD< 
11015 IF gri=i GOTD 11030 JWJ< 
11928 tps=0:LOCATE #3,1,1:PRINT#3," DEE4 
Teaps :"stps:PRINT"Tu es venue voir 

ta belle-mere,":PRINT"ton temps re 
commence à 0." 

11930 LOCATE #1,11,1:PRINT#1,"JARDI >CF{ 
N'" 

11032 FOR x=19 TO 20 STEP 2:MOVE x, >WH 
O:DRAW x,200,2: MOVE x+370,0:DRAW x+ 
370,200,2:NEXT x: MOVE 20,200: DRAW 3 
90,209,2 


11039 CLS #2 >PQ< 
11649 PRINT#2, "Droite" :PRINT#2 2VG 
11059 PRINT#2, "Un message" >DH4 
11660 IF linsec<>1 GOTO 11079 ?G6J< 
11061 PRINT#2,"Du linge sec" >VKK 


11062 FOR y=59 TO 198 STEF 2: MOVE 4 PL 
9, y: DRAW 289,y,3:NEXT y 

11063 FOR y=199 TD 174 STEP 2: MOVE 
300,y:DRAW 326,y,9:MOVE 336, y: DRAM 
390,Y,0:NEXT y:FOR y=172 TO 198 STE 
P 2:MOVE 300, y: DRAM 350,y,D:NEXT y: 
MOVE 326,175: DRAW 226, 198,2 

110706 GOSUB 39 ?ME< 
11075 IF gri=i THEN CLS:PRINT"Cette >UOK 
porte donne dans le vide, ":PRINT"£ 

u tombes dans le jardin et":PRINT"t 

u te casses une jambe. ":PRINT"Tu n° 

iras pas au bal ce soir.":60T0 5008 

[] 

11080 GOSUB 800 )EL£ 
11090 tps=0:LOCATE #3,1,1:PRINT#3," >EM< 
Teaps :";tps 

11110 IF act$="HAUT" OR act$="BAS" 
OR act$="GAUCHE" GOTO 11170 


2MM< 


?GE< 


| 11120 IF act$="DROITE" G0TO 12600 


?KF< 
11130 GOSUB 220 >WG< 
11140 IF esp=0 DR ver=0 OR obj=0 GO >PH< 
T0 11980 

11150 IF ver$="LIRE" AND obj$="MESS AJ 
“ THEN PRINT'Accrocher une serviett 

e dans":PRINT"la salle de bain.":60 

T0 11080 

11160 IF ver$="PREN" AND obj$="LING >CKX 
“ AND linsec=1 AND poch$="" THEN PR 
INT"D' accord. “:linsec=0:poch$="Ling 

e sec":FOR y=50 TO 198 STEP 2:MOVE 


40, y:DRAW 350,y, 1ëNEXT y:G0TO 11939 


11170 PRINT" Impossible !":60T0 1108 >NL< 
0 

12000 ‘#4 ENTREE ## ED 
12005 BORDER 1:INK 0,1: INK 1,4:INK DZ 
2, 26: INK 3,0 

12010 CLS H1:CLS #2 >DE< 
12020 LOCATE #1,11,1:PRINT#1,"ENTRE >PF< 
E" 


12029 CLS #2 >PQ< 
12039 PRINT#2, "Gauche":PRINT#2, "Dro >CG< 
ite":PRINT#2, "Haut": PRINT#2, "Bas": P 
RINT#2 

12046 GOSUB 30 >UH< 
12045 IF ref=i THEN CLS:PRINT"Tu as >KN< 
oublie de fermer le refrigerateur, 
"sPRINT'tu es privee de bal.":G0T0 
90000 

12050 GOSUB 800 ?CJ< 
12076 IF act$="HAUT" GOTO 6006 ?EL< 
12680 IF act$="BAS" GOTO 17006 ?KM< 
12096 IF act$="DROITE" GOTO 13000 >UN< 
12190 IF act$="GAUCHE" AND ccleja=à ?ZE< 
THEN PRINT'"La porte est fermee a c 
le.":60T0 12050 

12110 IF act$="GAUCHE" AND ccleja=i >JF< 
GOTO 11909 

12120 GOSUB 228 PNG 
12130 IF esp=0 OR ver=0 OR obj=0 60 >MH£ 
TO 12050 

12146 PRINT"Impossible !":G0TO 1295 >JJ< 
) 

13000 ‘## CUISINE ## ?PEX 
13005 BORDER 16:INK 0,16: INK 1,14:1 >UWK< 
NK 2,26: INK 3,0 

13010 CLS #1:CLS #2 ?EF< 
13029 LOCATE #1,19,1:PRINT#1,"CUISI >YG< 
NE" 

13021 FOR x=136 TO 269 STEP 2:MOVE >HH< 
x, 0: DRAW x,220,2:NEXT x 

13022 MOVE 130,0:DRAW 130,158,3:DRA >NJ< 
W 260,158,3:DRAN 260,0,3:DRAW 130,0 

3 

L 

13023 MOVE 130,162:DRAW 130,220,3:D >KK< 


RAW 260,220, 3:DRAW 260, 162,3: DRAM 1 
30,162,3 


13024 FOR x=140 TO 144: MOVE x,70:DR 
AW x,130,3:MOVE x,170:DRAW x,219,3: 
NEXT x 

13029 CLS #2 

13636 PRINT#2, "Gauche": PRINT#2, "Dro 
ite":PRINT#2, "Bas": PRINT#2 

13049 PRINT#2, "refrigerateur" 

13950 GOSUB 36 

13060 GOSUB 809 

13080 IF act$="HAUT" GOTO 13199 
13096 IF act$="GAUCHE" GOTO 12666 
13100 IF act$="DROITE" GOTO 14966 
13119 IF act$="BAS" AND cclebu=ÿ TH 
EN PRINT'La porte est fermee a cle. 
“:60TO 13860 

13120 IF act$="BAS" AND cclebu=1 60 
TO 18800 

13130 GOSUB 226 

13140 IF esp=0 OR ver=0 OR obj=0 60 
TO 13069 

1315 IF ver$="OUVR" AND ob j$="REFR 
“ AND ref=0 THEN PRINT"D'accord.":r 
ef=1:60T0 13060 

13160 IF ver$="OUVR" AND obj$="REFR 
“AND ref=i THEN FRINT"'IL est deja 
ouvert.":G60T0 13060 

13170 IF ver$="RANG" AND ob j$="VIAN 
“ AND ref=1 AND poch$="Viande" THEN 
PRINT"D'accord.":pach$="":G0SUB 16 
0:G0T0 13029 


13189 IF ver$="RANG" AND obj$="VIAN 


“ AND ref=4 AND poch$="Viande" THEN 
PRINT'Le refrigerateur est ferme." 
:G0TO 13060 


13184 IF ver$="FERM" AND obj$="REFR 


“ AND ref=0 THEN PRINT"I1 est deja 

ferme. ":60T0 13069 

13185 IF ver$="FERM" AND obj$="REFR 

“AND ref=1 THEN PRINT"D'accord.":r 

ef=6:G60T0 13960 

13199 PRINT'Iapossible !":G0T0 1306 
û 

14900 ‘## SALLE A MANGER ## 

14965 BORDER 15: INK 0,15: INK 1,14: 

NK 2,1:INK 3,26 

14010 CLS #1:CLS #2 

14929 LOCATE #1,7,1:PRINT#I, "SALLE 

A MANGER" 

14021 GOSUB 449 

14022 FOR x=35 TO 49 STEP 2:MOVE x, 

O:DRAW x,140,2:MOVE x+60,6:DRAW x+b 

0,60,2:MOVE x+2865,0:DRAW x+265,60,2 
MOVE x+329,0:DRAW x+325,149,2:NEXT 
x!FOR y=60 TO 65 STEP 2:MOVE 40, y: 

DRAW 100,y,3:MOVE 300,y:DRAW 360,y, 
S:NEXT y 

14929 CLS #2 

14050 PRINT#2, "Gauche" :PRINT#2, "Dro 
ite":PRINT#2, "Bas": PRINT#2 
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»JL< 


QR< 
2MH< 
>JJ 
?WKE 
?EL4 
?TN€ 
#QP< 
#MF< 
>HG< 


FYH£ 
AA 
?RE< 
?DL< 


>XM< 


VN€ 


A 


>AVE 


>TK 


?UF< 
3WL< 


?FGK 
?6H 


>CIK 
2TKK 


RTK 
2NJ< 


14040 PRINT#2, "Une table":PRINT#E, 

Des chaises" 

14958 GOSUB 34 

14955 IF ref=i THEN CLS:PRINT"Tu as 
oublie de fermer le refrigerateur, 
“sPRINT'tu es privee de bal.":G0T0 
50000 

14966 GOSUB 806 

14080 IF act$="HAUT" GOTO 14160 
14990 IF act$="GAUCHE" GOTO 13000 
14109 IF act$="DROITE" GOTD 15009 
14119 IF act$="BAS" GOTO 19090 
14126 GOSUB 220 

14136 IF esp=0 OR ver= OR obj=0 60 
TO 14960 

14140 IF ver$="PASS" AND ob j$="AGPI 
“ AND poch$="Aspirateur" AND aspdef 
=à THEN CLS:PRINT'Cet aspirateur es 
t defectueux,":PRINT"Il1 fait sauter 
les plonbs.":PRINT"Tu es privee de 
bal.":G0T0 56000 

14156 IF ver$="PASS" AND obj$="AGPI 
“AND poch$="Aspirateur" AND aspbon 

=@ THEN PRINT"D'accord.":poch$="":6 
OSUB 166:60T0 14029 


14160 PRINT'Impossible !“:60TO 1466 : 


0 

15009 ‘#4 SALON #4 

15005 BORDER 14: INK 0,14: INK 1,25:1 
NE 2,2: INK 3,3 

15010 CLS #1:CLS #2 

15029 LOCATE #1, 11, 1:PRINT#1, "SALON 
15021 FOR y=0 TO 30 STEP 2:MOVE 80, 
y:DRAN 329, y, 2:NEXT y 


15022 FOR i=1 TO 360 STEP 10:ORIGIN > 


90,40:DRAW COS(i)#19,SIN(i)#10:0RI 
GIN 310,49:DRAW COS (1)#19,SIN(i)#19 
:NEXT i:0RIGIN 0,0 

15023 FOR y=21 TO 70 STEP 2:MOVE 10 
b,y:DRAW 295,y,2:NEXT y 


15024 MOVE 108,71:DRAN 293,71,2: MOV : 


E 110,73:DRAW 291,73,2 


15025 MOVE 80,9:DRAW 326,0,3:DRAH 3 


20,30,3:DRAW 80,30,3:DRAW 80,9,3 


15026 MOVE 166,30:DRAW 106, 15,3: DRA : 


W 295,15,3:DRAW 295,30,3:MOVE 160,1 

J:DRAW 169,30,3:MOVE 246,15:DRAW 24 
0,30,5 

15027 MOVE 106,21:DRAW 106,70,3:DRA 
W 110,73,3:DRAW 291,73,3:DRAW 295,7 

0,3:DRAH 295,21,3 

15929 CLS #2 

15030 PRINT#2, "Gauche": PRINT#2, "Dro 
ite":PRINT#2 

15040 PRINT#2,"Un canape" 

15050 IF bou=1 THEN PRINT#2, "Une bo 

uillotte":MOVE 32,0:DRAW 48,0, 3:FDR 
y=2 T0 20 STEP 2:MOVE 30,y:DRAW 50 


PK 


FXL£ 
2NR€ 


>F 
>RP< 
> 
>PG{ 
>HHK 
VK 
>TK< 


>< 


>RM< 


?1R€ 


?TUK 


>VK 


?FL< 
>DM< 


»YSNEXT V:MOVE 32,22: DRAM 48, 22,3 


MOVE 38,24: DRAW 42,24,3:MOVE 36,26 


:DRAH 44,26,3 

15068 GOSUB 30 

15070 GOSUB 809 

15090 IF act$="HAUT" OR act$="BAS" 
GOTO 15150 

15190 IF act$="GAUCHE" GOTO 14909 
15110 IF act$="DROITE" GOTD 16000 
15120 GOSUB 220 

15139 IF esp=0 OR ver=d OR obj=ù 60 
TO 15070 

19149 IF ver$="PREN" AND ob j$="BOUI 
“ AND bou=i AND poch$="" THEN FRINT 
“D'accord.":bou=0:poch$="Bouillotte 
“:FOR y=0 TO 26 STEP 2:MOVE 30,y:DR 
AW 59,y,1:NEXT y:60T0 15029 

15150 PRINT'"Impossible !":60T0 1507 
[ 

16000 ‘#+ BIBLIOTHEQUE #* 

16905 BORDER 14:1INK 6,14:INK 1,22:1 
NK 2,3:INK 3,16:p=1 

16010 CLS #1:CLS #2 

16020 LOCATE #1,8,1:PRINT#]1,"BIBLIO 
THEQUE* 

16021 FOR y=0 TO 126 STEP 23MOVE 18 
0,y:DRAW 220,y,3:DRAW 340, y,0:DRAW 
390,y,3:NEXT y:FOR y=121 TO 150 STE 
P 2:MOVE 160, v:DRAN 398,y,2:NEXT y 
16022 MOVE 226,120:DRAN 226,6, 2:DRA 
W 340,0,2:DRAW 340,126,2: MOVE 180,1 
26:DRAW 180,0,2:DRAW 380,0,2:DRAW 3 
80,120,2: MOVE 225,10:DRAN 335,19,2: 
MOVE 225,40: DRAW 335,40,2:FOR x=230 
TO 330 STEP 9:MOVE x,0:DRAW x,509,2 
sNEXT x 

16023 FOR x=19 TO 146 STEF 6:p=p+#1: 
IF p=2 THEN p=3 

16024 IF p=4 THEN p=0 

16025 FOR i=x TO x+6 STEP 2:MOVE i, 
19:DRAW i,240,p:NEXT i:NEXT x 

16026 FOR x=0 TD 19 STEP 2:MDVE x,0 
:DRAH x,240,2: MOVE x+140,0:DRAW x+1 
40,240,2:NEXT x 

16927 FOR y=0 TO 249 STEP 49:FOR i= 
y T0 y+8 STEP 2:MOVE 0,i:DRAW 150, i 
92:NEXT i2NEXT y 

16029 CLS #2 

16030 PRINT#2, "Gauche": PRINT#2, “Hau 
t':PRINT#2, "Bas": PRINT#2 

16040 PRINT#2, "Des livres":PRINT#2, 
"Une cheminee" 

16050 GOSUB 30 

16060 GOSUB 800 

16080 IF act$="DROITE" GOTO 16150 
16090 IF act$="HAUT" GDTD 19000 
16100 IF act$="GAUCHE" GOTO 15000 
16119 IF act$="BAS" GOTO 21000 
16120 GOSUB 220 


IN< 
>HP< 
>OR< 
>LH< 
? TJ 
>IK< 
#WL< 


> TM 


>UN< 


PH 
?N< 


>HJ 
?DK< 


>HL< 


>JM< 


?BN 


>AP4 
PQ 


>PR< 


HT 


>UV< 
>DL< 


>CMK 


?IN< 
>HP< 
>6R< 
HT 
JNJ< 
>CK< 
?ALK 


16136 IF esp=ÿ OR ver=6 OR obj=0 GD ;XM< 
TO 16060 

16140 IF ver$="FAIR" AND obj$="FEU" >TN< 
AND poch$="Bois" THEN PRINT"D'acco 
rd.":poch$="":GOSUB 160:G60T0 16029 

16145 IF ver$="LIRE" AND obj#="LIVR >KUX 
“ THEN PRINT'Tu n'es pas la pour li 
re.":60T0 16069 

16150 PRINT" Impossible !":GO0TO 1606 ;VP< 
] 

17000 ‘xx CAVE #1 #4 

17005 BORDER 15:INK 9,15: INK 1,13: 
NK 2,3:INK 3,20 

17016 CLS #1:CLS #2 EX 
17029 LOCATE #1,9,1:PRINT#1, "CAVE N >EL£ 
. 1" 


APN 
>UP< 


17030 PRINT#2, "HAUT": PRINT#2 >NM< 
17040 PRINT#2, "Un message" ?JN< 
17041 IF boi<>i GOTO 17666 WP 
17042 FOR i=1 TO 360 STEF 3ÿ 


WG 
17043 ORIGIN 146,16:DRAW COS(i)#11, *HR< 
SIN(i)#11,2:0RIGIN 176,10: DRAW COS ( 
i)#11,SIN(i)#11,2:0RIGIN 200,11: DRA 
W COS(i)#11,SIN(i)#16,2: ORIGIN 236, 
11:DRAW COS (i)#11,SIN(i)#11,2:0RIGI 


N 260,11: DRAW COS(i)#11,SIN(i)#11,2 


17044 ORIGIN 155,30:DRAW COSii)#11, 
SIN(i)#11,2:0RIGIN 185,30: DRAW COS ( 
1)#11,SIN(i)#11,2:0RIGIN 215, 30: DRA 
W COS(i#11,SIN(i)#11,2: ORIGIN 245, 
30:DRAW COS (i)#11,SIN(i)#11,2 

17045 ORIGIN 179,50:DRAW COS (i#11, 
SIN(i)#11,2: ORIGIN 260,50: DRAW COS ( 
1)#11,SIN(1)#11,2:D0RIGIN 239,50: DRA 
W COS(i)#11,SIN(i)#11,2 

17057 NEXT i 

17058 ORIGIN 6,6 


FT 


CU 


#JR< 
26Y< 


17059 PRINT#2,"Du bois" LE 
17060 GOSUB 30 BG 
17076 GOSUB 890 ?2KR€ 


17099 IF act$="GAUCHE" OR act$="DRO >MUX 
ITE" OR act$="BAS" GOTO 17150 

17109 IF act$="HAUT" GOTO 12609 ?CK< 
17119 GOSUB 229 ?AL< 
17129 IF esp=0 OR ver=0 OR obj=6 GO >2M< 

T0 17070 

17130 IF ver$="LIRE" AND obj$="MESS >PN< 

“ THEN PRINT'Ranger la bouillotte d 

ans":PRINT"la chambre de la belle-m 

ere, ":60T0 17070 

17140 IF ver$="PREN" AND obj$="BOIS >YP< 
“AND boi=i AND poch$="" THEN PRINT 
"D'accord.":boi=0:poch$="Bois":GOTO 
17019 

17150 PRINT"Impossible !":GO0T0 1707 >YQK 

0 

18000 ‘## BUANDERIE ## >HK< 
18005 BORDER 2:INK 0,2: INK 1,17: INK >PQK 


2,0:INK 3,2b 

18019 CLS #1:CLS #2 ?KL< 
18026 LOCATE #1,16,1:PRINT#1, "BUAND RM 
ERIE" 

18021 FOR x=159 TO 256 STEP 2:MOVE 
X,0:DRAH x,120,3:NEXT x 

18022 MOVE 15,0:DRAW 256,6, 2: DRAH 
250,120,2:DRAW 150,120,2:DRAW 156,0 
,2:MOVE 159,106:DRAW 250, 100,2 
18023 MOVE 153,115:DRAW 165,115,0:M >FQ£ 
OVE 155,106: DRAW 179,106,0:FOR x=23 
9 TO 249 STEP 2:MOVE x,1695:DRAW x,1 
15,0:NEXT x : 
18924 FOR i=i TO 180 STEP 6:0RIGIN 
269,56:MOVE COS (i)#20, SIN (1) #26: DRA 
W COS(i)#29,SIN(i)*#-20,2:NEXT i:ORI 
GIN 9,0 

18029 CLS #2 >WX< 
18030 PRINT#2, "Haut": PRINT#2 ?PN& 
18049 PRINT#2, "Une machine a":PRINT >HP4 
#2, "laver" 

18059 GOSUB 36 ?BQ 
18955 IF ref=i THEN CLS:FRINT'Tu as >TH< 
oublie de fermer le refrigerateur, 
":PRINT'"tu es privee de bal.":G60T0 
50000 

18060 GOSUB 800 ?ER< 
18086 IF act$="GAUCHE" DR act$="DRO LU 
ITE" OR act$="BAG" GOTO 18136 

18999 IF act$="HAUT" GOTO 13609 2NV£ 
18109 GOSUB 220 AL 
18119 IF esp=0 OR ver=ÿ OR obj=0 60 >2M< 
TD 18666 

18120 IF ver$="LAVE" AND obj$="LING >XN< 
“ AND poch$="Linge sale" THEN PRINT 
“D'accord.":poch$="":GO0SUB 169:G0T0 
18029 
18130 PRINT"Impossible !":60T0 1806 :XP< 
(] 


?PN< 


CP 


?ÂR& 


19000 ‘xt CAVE #2 #4 »BL4 
19095 BORDER 25: INK 0,25: INK 1,16:1 >XR< 
NK 2,12INK 3,2 

19010 CLS H1:CLS #2 SLM< 


19926 LOCATE #1,9,1:PRINT#i, "CAVE N >NN< 
« 2" 

19030 PRINT#2, "Haut": PRINT#2, "Droit >UP< 
e":PRINT#2 

19040 PRINT#2, "Un message": IF aspbo >YQ 
n=i THEN PRINT#2, "Un aspirateur":60 

SUB 450 

19050 GOSUB 30 >CR< 
19055 IF con=i THEN CLS:PRINT"Tu as AX< 
oublie de fermer le congelateur, “: 

PRINT'tu es privee de bal.":60T0 50 

000 

19060 GOSUB 800 ?LT< 
19080 IF act$="GAUCHE" OR act$="BAS >GWK 
" GOTO 19150 


19090 IF act$="HAUT" GDTO 14000 >QWK 


19169 IF act$="DROITE" GOTO 26909  >qmM< 
19116 GOSUB 229 ?CN< 
19129 IF esp=0 OR ver=0 OR obj=ù 60 >CP4{ 
TO 19060 

19130 IF ver$="LIRE" AND obj$="MESS >HQ 
“ THEN PRINT"Laver le linge sale. ": 
GOTO 19969 

19146 IF ver$="PREN" AND obj$="ASPI :C 
“AND poch$="" THEN PRINT'"D'accord. 
“:aspbon=ÿ:poch$="Aspirateur":GOTO 
19910 

19150 PRINT'Impossible !":GOTO 1996 >ET< 
() 

29000 ‘#+ CAVE #3 #4 #UC< 

26005 BORDER 1:INK 9,1:INK 2,26: INK >GH£ 
3,0 

26010 CLS #1:CLS #2 }CD< 
20020 LOCATE #1,9,1:FRINT#1, "CAVE N DFE“ 
. 3" 

20030 CLS #2 EF 

28040 PRINT#2, "Gauche": PRINT#2 2RG< 
26050 IF clam<?1 THEN INK 1,0:PRINT >AH< 
#2,"I1 fait noir.":60T0 20980 

26051 INK i,16 >DJ< 

20052 FOR y=0 TO 199 STEP 2:MOVE 19 ?CK< 
0,y:DRAW 300,y,2:NEXT y 

20053 MOVE 109,0:DRAW 300,0,3:DRAW 
300,80,3:DRAW 100,80,3:DRAW 160,0,3 


us 


?CL< 


20054 MOVE 109,85: DRAW 300,85,3:DRA >RM< 
W 360, 190,3:DRAN 190,100,3:DRAW 100 
85,3 

20055 FOR x=117 TO 136 STEF 4:PLOT >VNé 
K,92,3:NEXT x 

26660 PRINT#2, "Un congelateur" PJ 
26076 IF con=i AND via=i THEN PRINT >LE£ 
#2,"De la viande" 

20986 GOSUE 39 #XL< 
26090 GOSUB 894 FM< 
20110 IF act$="DROITE" DR act$="BAS FE 
"OR act$="HAUT" GOTO 29220 

20120 IF act$="GAUCHE" GOTO 19900  >PF< 
20150 GOSUB 220 WG 

20149 IF esp=ô OR ver=ÿ OR obj=0 60 >QH< 
TO 20099 

20150 IF ver$="ALLU" AND obj$="LAMP :2J< 
" AND clam=2 THEN PRINT"D'accord. ": 

clam=1:G0T0 20030 

20160 IF ver$="ALLU" AND obj$="LAMP >OK< 
“ AND clam=i THEN PRINT'Elle est de 

ja allumee.":G60TO 26096 

20170 IF ver$="ALLU" AND obj$="LAMP >DL< 
“ AND clam=0 GOTO 20220 

20180 IF clam<>i GOTO 20220 ?6M< 
20190 IF ver$="OUVR" AND obj$="CONG >BN< 
"AND con=0 THEN PRINT"I] y a de la 
viande a l'interieur. ":con=1:60TO 

20050 

26200 IF ver$="OUVR" AND obj$="CONG >KE< 
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“ AND con=i THEN PRINT"I] est deja 
ouvert.":G0TD 200690 

20210 IF ver$="PREN" AND obj$="VIAN >JF4 
“ AND con=1 AND via=i THEN PRINT"D' 
accord. ":via=ÿ:poch$="Viande":GOTO 

26030 

20214 IF ver$="FERM" AND obj$="CONG >2ZK< 
“ AND con=û THEN PRINT"IL est deja 
ferme.":60T0 20690 

20215 IF ver$="FERM" AND obj$="CONG >QL< 
" AND con=i THEN PRINT"D'accord.":c 
on=0:G0TO 20090 

20220 PRINT"Impossible !":60T0 2009 >KG< 
0 

21000 ‘#x CAVE #4 #4 >WD< 
21005 BORDER 2:INK 0,2: INK 1,16: INK DRJE 
2,2b:INK 3,9 

21010 CLS:CLS #1:CLS #2 PME 
21020 LOCATE #1,9,1:PRINT#1, "CAVE N HF 
e 4" 

21025 GOSUB 39 ?ÀL< 
21030 MOVE 202,0:DRAW 240,9,3:MOVE >XG< 
200,2: DRAW 249,2,3:MOVE 200,4: DRAN 
240,4,3 

21931 MOVE 188,6:DRAW 249,6,3:MOVE  >DHK 
188,8: DRAW 249,8,3 

21032 MOVE 200,10:DRAW 240, 10,3: MOV >UJ< 
E 200,12:DRAW 249,12,3:MOVE 202,14: 

DRAW 249,14,3 

21649 PRINT"Ton pied roule sur une 2>YH< 

bouteille":PRINT"et tu te casses un 
bras.":PRINT"Tu ne pourras pas all 

er au bal ce soir.":G0T0 50000 

30000 ‘## DATAS VOCABULAIRE ## >VD< 

30019 DATA LIRE, OUVR,PREN,FAIR, ACCR ?NEX 
RANG, PASS, POSE, LAVE, ALLU, FERM, GAUC 

, DROIT, BAS, HAUT 

30020 DATA BIBL,PANT,MESS,COFF,CLE, >UF< 

AGPI,LAMP, ARMO, DRAP, SERV, LIT, LING, V 

IAN, BOIS,REFR, CONG, TABL, BOUI, PORT, C 

HAI, CANA, LIVR, CHEM, FEU, GAUC, DROI , BA 

S, HAUT 

40000 MODE 2:WINDOW #0,1,80,1,25:B0 >MEX 
RDER 0:INK 0,0:PAPER 0: INK 1,0:PEN 
il 

46016 PRINT:PRINT: PRINT" Tu es 

Cendrillon et tu veux aller danser. 
Tu n'auras l'autorisation d'y a 
ller que lorsque tu auras termine t 
out ton travail." 

40020 PRINT:PRINT: PRINT" Tu sau >DEK 
ras ce que tu dois faire en lisant 

les messages dissemines dans la à 
aison." 

49030 PRINT: PRINT: PRINT" En out >BH< 
re, tu dois aller voir ta belle-mer 

e dans le jardin au moins une foist 

outes les heures, sous peine d'etre 
privee de bal. 


?TF< 
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40035 PRINT: PRINT:PRINT: PRINT" 

Tu peux te deplacer en indiquant se 
ulement : gauche, droite, haut et b 

as." 

40049 PRINT: PRINT:PRINT" Par co >KJ* 

ntre, tes autres actions doivent se 
composer de deux mots : un verbe a 
l'infinitif et le nom auquel il s° 
applique." 

40050 PRINT: PRINT: PRINT:PRINT:PRINT >EK< 
TAB(28) "Presse ENTER pour jouer. 


2 


40060 bp=0 y1L 
49500 IF INKEYS{)"" GOTO 49500 >AK« 
40510 FOR t=1 TO 0.5 STEP -0.1 MUL< 
40511 bp=bp+i >GM 
40512 MHILE SQ(1)>127:MEND )EX 


40513 IF bp=1 THEN BORDER 4: INK 9,4 >TP< 


:IWK 1,26 
40514 IF bp=2 THEN BORDER 25: IIK 0, >VQ 
25:INWK 1,0 
40515 IF bp=3 THEN BORDER 26: INK 0, ?FRÇ 
26: 1,6 
49516 IF bp=4 THEN BORDER 16: INK D, DCT€ 
16: IK 1,3 
40517 IF bp=S THEN BORDER 14: INK 0, >YUX 
14: INK 1,1 
40520 RESTORE 40090 >LM 
40530 FOR i=1 TO 114 >PN 


40549 READ s0:s0=s0#t:READ d:d=d#12 >LP< 
:READ sob: sob=sob#t 

40559 SOUND 4,50, d,15,2:SOUND 1,50/ 
2,d,15,2:S0UND 2,sob,d,13,1 

40560 IF INKEYS=CHR$(13) THEN i=114 AR 
:t=0.5:brk=i 


?RQK 


40570 NEXT it >UT 
40580 IF brk=0 GOTO 40060 >HUK 
40590 FOR i=1 TO B:CALL HAOOO:NEXT DHV< 
i:RETURN 

50000 ‘## FIN DE PARTIE ## VF 
50005 AFTER 1,3 GOSUB 120 DHL 
50007 GOSUB 43000 MN 


56010 LOCATE 1,6:PRINT'Presse ENTER >EB 
, Si tu veux rejouer..."; 

90020 IF INKEY$<)"" GOTO 50026 >WH< 
50039 IF INKEY$<>CHR$ (13) GOTO 5903 >AJ< 
[) 

00049 CLEAR:FOR i=1 TO 8:CALL 44000 >VK< 
:NEXT i:6070 1 

60000 ‘## MUSIQUE PRESENTATION ##  >YG< 
60010 DATA 284,2,568,190,2,568,213, ?LH< 
2,568, 199, 1,568, 284,2,568, 284, 1,568 
1190,2,968, 215, 2,568, 190, 2,568 

60020 DATA 239,2,478,190,2,478,213, >MIX 
2,478, 190, 1,478, 239, 2,478, 239, 1,478 
,190,2,478,213,2,478,190,2,478 

60030 DATA 319,2,638,213,2,638,239, >OK 
2,638,213,1,638,319,2,638,319, 1,638 
,213,2,638,239,2,638,213,2,638 


60049 DATA 319,2,638,213,2,638,239, >RL< 
2,638,213,1,638,319,2,638,319,1,638 
,213,2,638,239,2,638,213,2,638 

60050 DATA 284,2,568,190,2,568,213, >OM< 
2,568, 190,1,568, 284,2,568, 284, 1,568 
:190,2,568,213,2,568, 190,2,568 

60960 DATA 239,2,478,190,2,478,213, >RN& 
2,478, 190, 1,478, 239,2,478,239,1,478 
190,2,478,213,2,478,190,2,478 
64070 DATA 319,2,638,213,2,638,239, 
2,638,213,1,638,319,2,638,319,1,638 
1213,2,638,239,2,638,213,2,638 
60080 DATA 319,2,638,213,2,638,239, >WOK 
2,638,213,1,638,319,2,638,319, 1,638 
,213,2,638,239,2,638,215, 2,638. 
60090 DATA 119,2,568,127,2,568, 142, 
2,568,199,1,568, 142,6,568 

60190 DATA 159,1,568,142,1,568,159, 
1,568,119,2,478,127,2,478,142,2,478 
1199,1,478,142,6,478 

60110 DATA 159,1,478,142,1,478,159, 
1,478,119,2,638, 127,2,638, 142,2,638 
,199,1,638,213,8,638 

60120 DATA 119,2,568,127,2,568, 142, 
2,568, 159, 1,568, 142,6, 568 

69130 DATA 159,1,568,142,1,568,159, 
1,568, 119,2,478,127,2,478,142,2,478 
1199,1,478,142,6,47B 

60140 DATA 159,1,478,142,1,47B,159, 
1,478,119,2,638, 127, 2,638, 142,2,638 
1159,1,638,213,8,638 

61000 ‘## MUSIQUE GAGNE ## 

61010 DATA 239,2,213,4,42b,2,426,2, 
358, 2, 284,2,239,2,284,2,239,2, 284,4 


YVP* 


BR 


?IH€ 


>QJ< 


>VK< 


?CL< 


>UM< 


?EHK 
>PJK 


62000 ‘## MUSIQUE PERDU ## 
42010 DATA 478,2,358, 2, 319,2, 284,4, 
284,4,284,2, 319, 2,284, 2,268, 2, 284,4 


NI 
?LK< 


63000 ‘#x MUSIQUE FIN DE PARTIE ## >DK< 
63010 IF fp=0 THEN RESTORE 62000 EL >QLX 
SE RESTORE 61000 

43020 FOR i=1 TO 10 > 
43030 READ s0:READ d:d=d#coef JM 
63040 SOUND 1,50,d,15, 1:S0UND 2,50/ >RP& 


3,d,13,2 

63050 NEXT i >CQK 
63060 RETURN ?IR< 
65090 MEMORY &9FFF:RESTORE 65090 KM 
65910 oct=&9FFF >XN< 
65020 oct=oct+i >RP< 
65030 READ pok$ >DQ 
65049 pok=VAL ("&"+pok$) >NRK 
65050 POKE oct,pok 2KT< 
65666 IF pok$="c9" GOTO 65080 >AUK 
65070 G6OTO 65029 DV 
65080 RETURN >DH< 


65090 DATA 97,21,00,c0,cb,3e,23,bc, >UX< 
29, fa,c9 


EDUCATIF 


SQUELETTE 





Paul SERNA 


Pour éviter de tomber sur un os, il vaut 
mieux le connaître sur le bout des pha- 
langettes. Si ce programme ne vous 
fait (mur) pas vous tenir les côtes, il 
vous donnera néanmoins un sourire 
radius. Je vous le parie (étal) : à la fin 
du questionnaire vous serez occis, à 
l'hôpital. 

O Temporal, ô mores, les jeunes ne con- 
naissent plus l'anatomie, c'est conster- 
num, s'exclame le père Honnet. Crä- 
nes, ils préfèrent suivre des yeux la na- 
vette en orbite. 

Bah, comme le disait la mère de Zorro : 
métacarpe noire, il va faire froid ce soir. 
Le mode d'emploi est inclus dans le pro- 
gramme. (Extraits de “l'Illiaque et l'O- 
dyssée d'Os Mère). 


10 “AHHHHHHE SQUELETTE #4 RE“ 
24 CLS #CC< 
36 GOSUB 1426 #RD£ 
46 GOSUB 2599 ?CE< 


90 DIM a$(35) HF 


6à FOR i=i TO 35 EG* 
78 READ a$(i) >YH: 
89 NEXT i #PJ< 
96 SYMBOL AFTER 129 #XK< 


100 SYMBOL 130,63,295, 255, 255, 255,2 >NB4 
95, 255, 255 

110 SYMBOL 131,0,0,1,3,7,7,15,15  UC4 
120 SYMBOL 132,128, 224,240, 248,248, >LD 
248, 252, 252 

130 SYMBOL 133,15,15,15,15,7,3,1,0 DHEX 
140 SYMBOL 134,295, 295, 255, 249,241, >YF< 
241,249,255 

150 SYMBQL 135,252, 252, 252, 292,230, >YG4 
231,163,190 

160 SYMBOL 134,127,62,63,63,30,31,7 >YH 
17 

170 SYMBOL 137,60,28,248, 248, 168,80 >BJ< 
,248, 248 

180 SYMBOL 138,12,31,14,31,14,31,14 >BK£ 


ne 

190 SYMBOL 139,0,0,0,0,0,0,0,63  3LL£ 
200 SYMBOL 149,0,0,0,0,0,0,0,248  >BC< 
210 SYMBOL 141,0,0,0,0,0,0,1,31  DRD< 
220 SYMBOL 142,0,0,0,0,0,0,255,255 HE4 
230 SYMBOL 143,0,0,0,0,0,0,0,224  DBF€ 





240 SYMBOL 144,255,7,144,169, 64,112 > 
,31,128 

250 SYMBOL 145,9,1,0,3, 3,15, 14, 14 

260 SYMBOL 146,255, 224, 1,128, 198,22 à 

6,97,13 

270 SYMBOL 147,255, 255, 14,255, 14,14 > KK£ 
,255, 14 

280 SYMEOL 148,254, 224, 1,255,0,1,25 

5,0 

290 SYMBOL 149,1,24,18,39,193,231,1 } 

47,51 

300 SYMEOL 150,249,0,0, 12, 156, 248,2 } 

40,248 

310 SYMBOL 151,12,12,12,12,12,12,12 à 
12 

320 SYMBOL 152,4,2,27,9,4,6,3, 1 

330 SYMBOL 153,224,63,0, 128,255,0,0 > 
,255 

340 SYMBOL 154,14,295,14,14,255,14, >HH£ 
14,255 

350 SYMBOL 195,9, 255,0, 0,255, 0,0,25 > 
5 

360 SYMBOL 156,96,196,13,25,232,6, 1 ?XK& 
2,248 

370 SYMBOL 197,248, 56, 24, 24,24, 24,2 > 
4,24 

380 SYMBOL 158,12,7,1,0,4,7,0,0  >CMC 
390 SYMBOL 159,0,0,255,0,0,259,0,0  >NNC 
400 SYMBOL 140,28, 24,24, 24,24, 24,24 DQE4 
sé 

L 


?QL< 


416 SYMEOL 161,14,14,255,30,63,235, : 
119,206 

426 SYMBOL 162,9,0,253,0,0,255, 128, : 
128 

430 SYMBOL 163,3,14,292,0,2,254,6,0 
446 SYMBOL 164,24,24,24,24,24,24,24 
,24 

450 SYMBOL 165,48,48,48,48,112,112, : 
248,216 

460 SYMBOL 166,3,0,9,6,0,1,0,0 

479 SYMEOL 167,255,3,6,4,12,249,3,6 
489 SYMBOL 168,142,30,63,111,206, 14 
2,31,14 

490 SYMBOL 169,255,24,8,146,199,99, : 
40,24 

506 SYMEOL 175,252,0,0,0,0,192,129, > 
ÿ 

919 SYMBOL 171,28,28,60,62,127,254, à 
126,62 

924 SYMBOL 172,1,0,0,1,1,0,0,1 
930 SYMEOL 173,216,24,128,136,156,1 ; 
46,204,204 

049 SYMBOL 174,4,28,0,0,0,0,126,255 :WK< 


550 SYMBOL 175,31,14,31,14,31,14,31 FL 
14 

560 SYMBOL 176,12,7,0,0,30,63,63,12 >JMé 
7 

570 SYMEOL 177,0,0,0,0,0,0,192,240 >)GN( 
580 SYMBOL 178,24,0,19,95,91,59,27, >QP4 
27 

590 SYMBOL 179,9,0,0,128,0,0,0,0  >ZQt 
bob SYMBOL 180,1,1,1,1,1,1,1,1 »16 


619 SYMBOL 181,149, 192, 152,192, 152, 
192,152, 152 

620 SYMBOL 182,1,3,7,7,7,7,7,3 

43 SYMBOL 183,255, 295, 255, 255, 255, 
255, 254, 254 

640 SYMBOL 184,143,255,245,295,245, >VL4 
255, 53,63 

65 SYMBOL 185,255, 255, 255, 255,255, >GM< 
255, 143, 143 

bb SYMBOL 186,248, 252, 254, 254,254, à 
254, 252, 248 


670 SYMEOL 187,27,26,14,7,2,2,2,2  >CP4 
48ù SYMEOL 188,9,0,0, 128, 128, 128, 12 >PQ 
8,128 

&9û SYMEOL 189,1,1,1,1,1,1,3,1 SUR 


100 SYMEOL 190,152, 192, 184, 176,176, ? 
176,176,56 

718 SYMBOL 191,3,1,0,0,0,0,0,1 

720 SYMBOL 192,255, 131,97, 125,253, 1 
25,57, 27 
730 SYMBOL 
55, 239, 205 
749 SYMBOL 
7,179,155 
750 SYMBOL 
28,254, 62 
760 SYMBOL 196,2,2,6,14,14,15,15,15 >HP< 
770 SYMBOL 197,128, 128, 128,0,0,0, 12 >QQ< 


JAI 
>HK< 
193,31, 142, 196, 228, 255,2 >YL4 
194,31,60,121,251,243,24 >KMC 


195,248, 48,128, 224, 224,2 >AN( 


13 


8,192 

780 SYMEOL 198,0, 2,0, 2, 9,2, 2,2 
790 SYMBOL 199,119, 1, 168,0, 168,0, 16 >NT< 
8, 189 

890 SYMBOL 200,3,131,195,67,67,67,1 
95, 129 

810 SYMBOL 201,251,225, 128,0,0,0,12 >NK 
8,128 

820 SYMBOL 292, 141,248, 240, 96,0,0,0 >ILX 
o 

1 

830 SYMBOL 203,136, 252, 120,48,0,0,0 >UM< 
û 

L 

840 SYMBOL 204,46, 14,62, 60, 125,125, >DN 
113,112 

850 SYMBOL 205,128,0,64,0,64,0, 44,6 >PP4 
4 

860 SYMBOL 206,2,0,0,9,0,0,0,0 
870 SYMBOL 207,168, 168,32, 0,0,0,0,0 >ZR< 

880 SYMBOL 208, 128, 128, 128, 128, 128, 
128, 128, 128 

890 SYMBOL 209,112,112,112,112,48,4 >AUX 
8, 48,48 


900 SYMBOL 210,21,21,21,4,0,0,0,0 HE 
910 SYMBOL 211,64,0,0,0,0,0,0,0  >CL< 
920 SYMBOL 212,1,1,1,1,1,1,6,0 M 


930 SYMEOL 213,128, 128, 128, 128, 128, 
128, 192, 192 

940 SYMEOL 214,48, 48, 48,48, 48, 48,48 >TF< 
,48 

950 SYMBOL 215,192, 192, 192,96, 96,98 > 
,54, 188 

966 SYMBOL 216,0,0,0,0,0,0,1,3 
970 SYMBOL 217,48,48,48, 112,240,248 >TT4 
,252, 254 

980 SYMBOL 218,128, 193,67,30, 62,30, 
12,13 

990 SYMBOL 219,0, 128,0, 0,128, 128,12 >NVE 
8,128 

1900 SYMBOL 229,1,0,6,1,3,3,1,0 
1919 SYMBOL 221,252, 206,6, 156, 156,2 >DC< 
48,240, 112 

1929 SYMBOL 222,13,13,13,13,13,13,1 >ND 
EE 

1030 SYMBOL 223, 108,96, 96,96, 96,96, >GEX 
96,96 

1049 SYMBOL 224,94, 96,96, 96, 96, 96,9 à 
6,9% 

1950 SYMBOL 225,13,13,13,13, 13, 12,3 
0,30 

1060 SYMBOL 224,94,96, 240,248, 216,2 EH 
16,0,216 

1970 SYMBOL 227,3,3, 19,24, 56, 188,44 >1J< 
,192 

1080 SYMBOL 228,0,0,0,0,0,0,0,1  DAKC 
1999 SYMEOL 229,30, 12,4,33,31,60, 15 >WL< 
8, 222 

1190 SYMEOL 236,0,0, 128, 128, 200,248 >FC< 
,224,0 

1119 SYMBOL 231,192, 128,0,0,0,0,9,0 >VD< 


170 

L 

1130 SYMBOL 233,0,170,0,0,0,0,0,0  >DF< 
1140 SYMBOL 234,28, 64,85, 192, 149,0, >LGK 
149, 149 


1159 n=û:c=0: d=0 > EH 
1168 p=ù FNJ< 
1170 IF n=19 THEN GOTO 2260 FVKX 


1180 MODE 1:BORDER 0:PAPER O:PEN 1: >ML< 
INK 0,0: INK 1,26 

1196 LOCATE 18,1:PRINT CHR$(151)+CH >QM< 
R$(130)+CHR$ (132) 

1200 LOCATE 18,2:PRINT CHR$(133)+CH TX 
R$(134)+CHR$ (135) 

1210 LOCATE 19,3:PRINT CHR$(156)+CH > XE< 
R$(137) 

1220 LOCATE 17,4:PRINT CHR$(139)+CH 2MF< 
R$ (149) +CHR$ (138) +CHR$ (141) +CHR$ (14 
2)+CHR$ (143) 

1230 LOCATE 16,5:PRINT CHR$(145)+CH >KG< 
R$(146)+CHR$ (144) +CHR$ (147) +CHR$ (14 
8)+CHR$ (149) +CHR$ (159) 

1249 LOCATE 16,6:PRINT CHR$(151)+CH >GH< 
R$ (152) +CHR$ (153) +CHR$ (154) +CHR$ (15 
9) +CHR$ (156) +CHR$ (157) 

1250 LOCATE 16,7:PRINT CHR$(16ÿ)+CH >NJ< 
R$ (158) +CHR$ (199) +CHR$ (161) +CHR$ (18 
2)+CHR$ (163) +CHR$ (164) 

1260 LOCATE 16,8:PRINT CHR$(165)+CH EK< 
R$ (166) +CHR$ (1673 +CHR$ (168) +CHR$ (16 
9)+CHR$ (170)+CHR$ (171) 

270 LOCATE 15,9:PRINT CHR$(172)+CH >GL< 
R$(173)+CHR$ (128) +CHR$ (174) +CHR$ (17 
5)+CHR$ (176) +CHR$ (177) +CHR$ (178) +CH 
R$(179) 

1280 k$=CHR$ (180) +CHR$(181)+CHP$ (18 > 2M< 
23+CHR$ (183) +CHR$ (184) +CHR$ (185) +CH 
R$ (186) +CHR$ (187) +CHR$ (188) 

1290 LOCATE 15,19:PRINT CHR$(189)+C > 
HR$ (190) +CHR$ (191) +CHR$ (192) +CHR$ (1 
93)+CHR$ (194) +CHR$ (195) +CHR$ (196) +C 
HR$ (197) 

1309 LOCATE 15,11:PRINT CHR$(198)+C VE 
HR$ (199) +CHR$ (200) +CHR$ (291) +CHR$ (2 
02) +CHR$ (203) +CHR$ (204) +CHR$ (254) +C 
HR$ (205) 

1319 LOCATE 15,12:PRINT CHR$ (206) +C 
HR$ (207) +CHR$ (189) +CHR$ (298) +CHR$ (1 
28) +CHR$ (128) +CHR$ (209) +CHR$ (210) +C 
HR$ (211) 

1326 LOCATE 17,13:PRINT CHR$(212)+C >HB< 
HR$ (213) +CHR$ (128) +CHR$ (128) +CHR$ (2 
14) 

1339 LOCATE 18,14:PRINT CHR$(215j+C : 
HR$ (128) +CHR$ (216) +CHR$ (217) 

1340 LOCATE 18,15:PRINT CHR$ (218) +C :. 
HR$ (219) +CHR$ (220) +CHR$ (221) 

1350 LOCATE 18,16:PRINT CHR$ (222) +C 
HR$ (128) +CHR$ (128) +CHR$ (223) 

1369 LOCATE 18,17:PRINT CHR$ (222) +C 


AF< 


PE 


>TL£ 


1126 SYMBOL 232,0,212,0,170,0,170,0 >ME< | HR$(128)+CHR$ (128) +CHR$ (224) 


14. 


1370 LOCATE 18,18:PRINT CHR$(225)+C >YM< 
HR$ (128) +CHR$ (128) +CHR$ (224) 

1380 LOCATE 17,19:PRINT CHR$ (228) +C >HN< 
HR$ (229) +CHR$ (230) +CHR$ (128) +CHR$ (2 

26) 

1390 LOCATE 17,20:PRINT CHR$(227)+C }VP< 
HR$ (231) +CHR$ (128) +CHR$ (128) +CHR$ (2 

32) . 


1400 LOCATE 21,21:PRINT CHRS(233)  DHF< 
1410 GOSUB 1729 >CG< 
142 CLS >MH£ 
1436 MODE 1:BORDER 18:PAPER O:PEN 1 DVI 
«INK 9,0: INK 1,26: INK 2,18: INK 3,24 

1440 FOR 1=1 TO 150 STEP 10 >LK« 
1450 d=1 TL 
1460 FOR d=1 TO d+3 »YM< 
1476 SOUND 1,d,4 >DN< 


1486 MOVE d,d: DRAM d,400-d, 2: DRAM 6 >JP< 
40-d,400-d:DRAW 640-d, d:DRAW d, d 


149 NEXT d ?VQ< 
1599 NEXT 1 ?VG< 
1519 a$="Paul SERNA" :JH 
1529 FOR i=1 TO LEN(a$) >KJ< 
1530 b$=MID$(a$,i,1) 3YK£ 
1546 PEN 3:LOCATE 15+i,11:PRINT b$ >KLé 
1550 FOR t=i TO 180: NEXT t >UM< 
1560 NEXT i FYN< 
1570 c$="presente" ?TPé 
1580 FOR i=1 TO LEN(c$) ?UQ< 
1590 d$=MID$(c$, 1,1) 3JR< 
1600 FOR j=29 TO i6+i STEP -i RH 
1619 LOCATE j,13:PRINT d$ QT 
1629 LOCATE j+1,13:PRINT "" ?CKK 
1630 NEXT j ?XL< 
1649 NEXT i M€ 


1659 PEN 1:LOCATE 15,15:PRINT "LE S :VN< 
QUELETTE " 

166 FOR t=i TO 2660:NEXT t IP 
1670 RETURN #WQ< 
1689 DATA parietal,occipital,tempor :HR< 
al, vertebre cervicale,tete de l'hum 
erus,cotes,vertebre dorsale,cote,cu 
bitus 

1696 DATA radius,coccyx,carpe,metac 
arpe,phalanges, ischion, femur,condyl 
e femoral,malleole interne,calcaneu 
m,metatarse, frontal orbite 

1704 DATA maxillaire superieur,maxi 
llaire inferieur,clavicule,sternum, 
huserus, vertebre lombaire,os iliaqu 
e,sacrum, tete du femur,grand tracha 
nter,rotule 

1716 DATA tibia,perone 

1726 RANDOMIZE TIME 3PLE 
1739 v=INT (RND#35)+1 
1746 PEN 2:LOCATE 5,3:PRINT LEN(a${ UN< 
v)):LOCATE 3,4: PRINT "LETTRES": PEN 
i 

1750 IF v=i THEN MOVE 256,392: DRAM 
28.397,72 


PET 


EJ< 


2NF< 


1760 IF v=2 THEN MOVE 256,384: DRAW  >KOK 

290, 384,2 

1770 IF v=3 THEN MOVE 256,376:DRAW >{RK 

298, 384,2 

1780 IF v=4 THEN MOVE 256,346:DRAW >BT{ 

300, 346,2 

1790 IF v=5 THEN MOVE 224,324: DRAW EUX 

256, 326,2 

1800 IF v=6 THEN MOVE 224,312:DRAW >QKK 

278, 312,2 

1810 IF v=7 THEN MOVE 224,272:DRAM NL 

300, 272,2 

1820 IF v=8 THEN MOVE 224,270: DRAM Dé 

282, 270,2 

1830 IF v=9 THEN MOVE 224,252: DRAW >WNC 

244,252, 2 

1840 IF v=1à THEN MOVE 224,252: DRAW >WP< 
248, 252,2 

1850 IF v=11 THEN MOVE 224,244: DRAN >MQX 
300, 244,2 

1860 IF v=12 THEN MOVE 224,232: DRAW ?LRC 
240,232,2 

1870 IF v=13 THEN MOVE 224,226: DRAW 2VT4 
240,226,2 

1880 IF v=14 THEN MOVE 224,218: DRAN >ZUK 
240,218, 2 

1890 IF v=15 THEN MOVE 224,192: DRAW >XV< 
288,192,2:DRA 292, 236, 2 

1900 IF v=16 THEN MOVE 224,198: DRAW >TL£ 
266, 198, 2 

1910 IF v=17 THEN MOVE 224,176: DRAW >GM< 
280, 176,2 

1920 IF v=18 THEN MOVE 224, 190: DRAW >HN< 
282, 199,2 

1930 IF v=19 THEN MOVE 224,96:DRAW KP< 
290, 96,2 


1949 IF v=20 THEN MOVE 224,88: DRAM 
262,88, 2 

1950 IF v=21 THEN MOVE 304,386: DRAM >NR4 
336, 386, 2 

1960 IF v=22 THEN MOVE 312,374: DRAW 
336, 374,2 

1970 IF v=23 THEN MOVE 306, 362: DRAM > 
334, 362,2 

1980 IF v=24 THEN MOVE 308,354: DRAM > 
336, 354,2 

1990 IF v=25 THEN MOVE 228, 338: DRAM 
360,338, 2 

2000 IF v=26 THEN MOVE 300, 326: DRAM > 
360,326, 2 

2010 IF v=27 THEN MOVE 344, 354: DRAW 
360, 304,2 

2020 IF v=28 THEN MOVE 306, 264: DRAW : 
360, 264,2 

2030 IF v=29 THEN MOVE 312, 252: DRAM 
360, 252,2 

2040 IF v=30 THEN MOVE 306, 248: DRAW > 
260, 248, 2 

2050 IF v=31 THEN MOVE 320, 246: DRAM >PHé 
360, 246,2 


{| 2330 PEN 1 


2060 IF v=32 THEN MOVE 332,240: DRAW >GJ4 
360,240,2 

2070 IF v=33 THEN MOVE 224,174: DRAM >2K< 
272,174,2 

2080 IF v=34 THEN MOVE 324,128: DRAW >YL< 
360, 128,2 

2090 IF v=35 THEN MOVE 224, 128: DRAM >GMé 
286, 128,2 

2100 WINDOW #1,1,40,1,21:WINDOW #2, >YD< 


1,40,22,25 

2110 n=nti ?IEX 

2120 CLS #2: INPUT #2, "Comment 5'app >ZF4 

elle cet os";b$ 

2130 c$=LOWERS (b$) >JG< 

2149 IF c$=a$(v) THEN GOTO 2160 ?EH< 

2150 IF c$<>a$(v) THEN GOTO 2209  >RJ 

2160 d=d+1:CLS #2:PEN #2,3:PRINT #2 >EK4 

S. C'est tres bien.":PEN 

#2,1 

2176 FOR t=1 TO 2000:NEXT t JUL< 

2180 CLS #2 5 JMé 

2190 GOTO 1176 FFN€ 

2206 CLS #2:PEN #2,3:PRINT #2," ?GE* 
NON !!!1....":PEN #2,1 

2219 p=p#i ?EF< 

2220 c=c+i CG“ 

2230 FOR t=1 TO 2066: NEXT t ?TH€ 

2246 IF p=2 THEN GOTO 2566 AVJ< 

2250 GOTO 2120 2YK£ 


2260 CLS:LOCATE 16,3:PRINT "RESULTA ;YL< 
T" 
2270 PEN 2:LOCATE 10,9:PRINT d; LM< 


2289 IF d£2 THEN PRINT " Reponse ex >YN£ 
acte" 
2296 IF d>=2 THEN PRINT " Reponses :>YP< 
exactes" 

{| 2300 PEN 3:LOCATE 19,11:PRINT INT(c >YF< 
/2); 
2310 IF INT(c/2){2 THEN PRINT " Rep >DG< 


onse fausse" 
2320 IF INT(c/2)>=2 THEN PRINT " Re >DH< 
ponses fausses" 

?TJ< 
2346 GOSUB 2780 


{| 2356 IF INKEY(47)=6 THEN GOTO 2360 :FL< 


2560 CLS 3RM< 
2379 PEN 2:LOCATE 9,5:PRINT "VOULEZ AN< 
-VOUS REJOUER" 


{| 2380 PEN 3:INE 3,6:LOCATE 5,10:PRIN >JF< 


T" +# Si OUI ----> touche 0" 
2390 LOCATE 5,12:PRINT " # Si NON - :YQé 
-—-; touche N' 


{| 2400 tou$=INKEYS$ #XG< 


2416 IF tou$="" THEN GOTO 2466 FHK 
2420 IF tou$="o" OR tou$="0" THEN G >DJ< 
OTO 1154 


«| 2450 IF tou$="n" OR tou$="N" THEN G >FE< 


OTO 2440 
2440 MODE 0:PAPER O:PEN 1:INE 0,6:1 >DL< 
NE 1,26:INK 2,18:INK 3,24: INE 4,15: 


INK 5,11 
2450 PEN S:LOCATE 6, 5:PRINT "C'etai >XM< 
t" 


2460 PEN 4 >AN< 
2470 st$="LE SQUELETTE" +CP< 
2480 FOR num=i TO LEN(st$) )JQK 
2490 squ$=MID$ (st$,num, 1) }MR< 
2500 LOCATE 3+num,12:PRINT squ$ ?TH€ 
2510 FOR t=1 TO SO:NEXT t ? TJ 
2529 NEXT num ?BK< 
2530 FOR t=1 TO 2006:NEXT t ?UL< 
2546 MODE 1:PAPER G:PEN 1:INK 0,0: 7 ;LM< 
NK 1,26: INK 2,18: INK 3,24 

2550 END ?FN° 
256 CLS #2:PRINT #2,"Cet os s'appe :{P< 
Ile: ";:PEN #2,3:PRINT #2,UPPERS (a$ 
(VI): PEN #2, 1 

2576 FOR t=1 TO 2600:NEXT t >AQ< 
2586 GOTO 1160 HRK 
2596 MODE 1:PAPER O:PEN 1: INK 9,0: 1 KT 
NE 1,11:INK 2,18: INK 3,15 

2600 CLS 2NJ< 
2619 PEN 2:LOCATE 14,3:PRINT "INDIC >KE< 
ATIONS" 

2629 PEN 1:LOCATE 5,7:PRINT "Un "  >XL< 
263% PEN 3:LOCATE 8,7:PRINT "SQUELE >MM< 
TTE" 

2646 PEN 1:LOCATE 18,7:PRINT "va ap >EN< 
paraitre. Un trait" 

2650 PEN 2:LOCATE 1,8:PRINT "VERT" :VP< 
2669 PEN 1:LOCATE 6,8:PRINT "indiqu >GQ< 
era l'os à decouvrir." 

2670 LOCATE 5,19:PRINT "Dix questio DR 
ns seront posees." 

2688 LOCATE 5,12:PRINT “Si deux rep >GT{ 
onses fausses sont " 

2699 LOCATE 1,13:PRINT “donnees pou >DU< 
r le meme 05, alors la solu-" 

2709 LOCATE 1,14:PRINT “tion sera # >GK< 


ournie.ll faudra bien la me-" 
2719 LOCATE 1,15:PRINT “moriser car :NL£ 
la meme question peut reve-" 


2726 LOCATE 1,16:PRINT "nir plusieu >UM£ 
rs fois." 

2739 FEN 3 ;IN< 
2746 GOSUB 2786 TP 
2750 IF INKEY(47)=0 THEN 2760 >1Q 
2769 MODE 1:BORDER 0:PAPER 9: INK 9, >CR< 
O: INK 1,26: INK 2,18: INK 3,24 

2776 RETURN PYTÉ 
2789 f$="..,£ Barre Espace >..,POUR >RU4 


CONTINUER. ." 
2790 FOR num=1 TO LEN(#$) #HV4 


2800 g$=MID$(#$, num, 1} #RL< 
2819 LOCATE num, 24:PRINT g$ EM 
2826 FOR t=1 TO SO:NEXT t 


38 NEXT num 3FP< 


2846 k$=INKEY$ 2 Tü< 
2856 IF k$="" THEN GOTO 2849 2KR< 
2869 RETURN PYTE 
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UTILITAIRE 


SUPER DISC 


David MERLIER 


Yannick KARCHER 


Super-Disc est un programme simple, 
rassemblant plusieurs instructions dis- 
ques telles que effacement de fichiers, 
échanges de noms, sous une forme plus 


pratique que les RSX d'origine. 


Le mode d'emploi est inclus dans le pro- 


gramme. 


N.B. : le symbole X s'obtient en tapant 


“CTRL''+''X"" simultanément. 


Listing A 


19 REM  HHEOHPONONHEEER 
26 REM +# # 
36 REM +# # 
46 REM * SUFER LISC + 
99 REM +# 4 
bà REM * # 
70 REM * copyright KARCHER Y. et# 
86 REM + # 
96 REM +# * 
196 REM * MERLIER D. # 
119 REM *# # 
128 REM * # 
120 REM HR AONEONNTE 
140 REM XX x + NON NX À À 
15ù REM + # 
166 REM +# # 
176 REM +* PRESENTATION * 
186 REM +# + 
190 REM +# + 
200 REM HIHI 
210 REM 


220 INK 0,0:PAPER 0: BORDER O:MODE 1 
:CLS: INK 1,152 INK 3,1: INK 2, 26:SPEE 
D KEY 20,1 
236 FOR i=399 TO 320 STEP -2:MOVE 1 
it DRAW 640,1,3:NEXT:FOR i=30 TO 40 
STEP 2:FLOT 40,380, 1:DRAW i,370:NE 
XT 
240 FOR i=40 TO 70 STEP 2:MOVE i.38 
O:DRAM i,370:NEXT 
250 FOR i=30 TO 40 STEP 2:MOVE i,37 
O:DRAW i, 360: NEXT:FOR i=49 TO &ÿ:MO 
VE i,360:DRAW i,390, 1:NEXT:FOR i=30 
TO 40:PLOT 49,350:DRAN à, 360: NEXT: 
FOR i=60 TO 70:PLOT 6ù, Shÿ:DRAW i,3 
Sû:NEXT 


260 FOR i=66 TO 70:PLOT 66,336: DRAM > 
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é , 
>LE< 
LE 


>MF< 


V6 


>FH£ 


1,340:NEXT:FOR 1=60 TO 74:MOVE 1,5 
50: DRAM 1,340:NEXT:FOR 1=30 TO 6û:M 
OVE 1,349: DRAW 1,336: NEXT 
276 FOR i=340 TO 386 STEP 2:MOVE 18 
9,1:DRAW 118,1:MOVE 126,1: DRAW 139, 
iiNEXT:FOR 1=199 TO 116:PLÔT 118,53 
G:DRAW 1,349:NEXT:FOR 1=126 TO 136: 
FLOT 129,536: DRAN 1,34G:NEXT: FOR i= 
119 TO 124:MOVE 1,349: DRAN 1,336:NE 
XT 
286 FOR 1=336 TO 384 STEP Z:MOVE 16 
d,1:DRAN 176,1:MOVE 228,1: DRAN 256, 
1: MOVE 286,1:DRAW 299,1:NEXT: FOR i= 
176 TO 186: MOVE 1,380: DRAW 1.576: M0 
VE i,360: DRAM 1,396: NEXT 
290 FOR i=180 TO 196:MOVE i.378:DRA 
W i,360:PLOT 180,306: DRAK 1.370:FL0 
T 164,350: DRAW 1,368: NEÂT: FÜR 1=220 

TO 256: MOVE 1,586: DRAW 1,376: MOVE 
4340: DRAM i,330:NEXT: FÜR i=236 TO 
240: MOVE 1,360: DRAW 1,359: NEXT 
300 FOR 1=28ù TO 300: MOVE 1,386: DRA 
W i,3/0:MOVE 1,366: DRAN 1,336: NEXT: 
FOR i=304 TO 316:FLOT 369,250: DRAN 
1,330: NEXT:FOR 1=290 TO 360: PLOT 56 
0,330: DRAW i,390:NEXT:FOR 1=360 TO 
310:MOVE 1,370: DRAW 1,360: PLOT 366, 
386: DRAM 1,3760:FLOT 306,356: DRAN 1, 
366: NEXT 


310 FOR i=336 TO 306 STEF Z2:MOVE 37 ii 


0,1:DRAW 386,1: MOVE 430,1: DRAH 446, 
i:NEXT:FOR i=346 TO 376 STEF Z:MOVE 
390,1:DRAW 496,1: MOVE 544,1: DRAN 5 
50,1:NEXT:FOR i=306 TG 396:MOVE 1,3 
80: DRAN 1,370: MOVE 1,346: DRAW 1,336 
:NEXT 


320 FOR 1=396 TO 466:PLOT 399,38ü:D 


RAW i,3760:PLOT 396,336: DRAN 1,348: N 
EXT:FOR i=470 TO 486:FLOT 486, 380:D 
RAW i,370:FLOT 486,350: DRAM 1,360: N 
EXT:FOR i=486 TO 516:MOVE 1,380: DRA 
W 1,370:NEXT 


336 FOR i=476 TO 486: MOVE i,376:DRA : 


W i,360:NEXT:FOR i=486 TO 56: MOVE 
i,360:DRAW i,350:NEXT:FOR 1=470 TO 
900: MOVE 1,340:DRAW 1,330: NEXT:FDR 
i=500 TO S19:MOVE i,350:DRAW 1,340: 





>FKX 


PL 


FX: 


#FD< 


PLOT 509,369: DRAH i,350:FLOT 506,35 
D: DRAH 1,34G:NEXT 

340 FOR i=556 TO 570:MOVE 1,380: DRA 
W i,370:MOVE i,340:DRAN i,330:NEXT: 
FOR i=546 TO 554:FLOT 556,386: DRAW 
i.370:PLOT 550,330: DRAN i,346:NEXT 
356 FEN Z:LOCATE 19,9:PRINT "par": PL 
OT 280,250,3:DRAW 340,250: DRAN 346, 
27b:DRAW 289,276: DRAM 296,256 

369 LOCATE 1,14: PRINT"  MERLIER D :HE£ 
avid et KARCHER Yannick" 

376 PFLOT 56,2606,1:DRAN 59,166:DRAW >RL< 
584,166: DRAW 584,206: DRAN 59,200 

386 PLOT 46,219,1:DRAW 46,156: DRAW TM 
594,156:DRAW 594,216:DRAM 46,219 

399 PLOT 56,266: DRAW 49,216:PLOT 56 AN 
“66: DRAN 46,156:PLÜT 584, 166: DRAW 
594,156:PLOT 564,209: DRAW 594,219 

410 PAPER 2:FEN G:LOCATE 5,23: PRINT :MFé 
“Voulez-vous le mode d'emploi (O/N) 
426 o$=UPPERS(INÉEYS): IF o$="0" THE : 
N 449 ELSE 438 

36 IF o$="N" THEN 636 ELSE 426 :BH£ 
449 m=1:FO0R i=1 TO 326 STEF Z:PLOT : 
i,1,9: DRAM i,460:FLOT 64ü-m, 1: DRAM 
646-m, 4600: m=m+2:NEXT 

454 MODE 1:INE 1,6,3:SPEED INE 10,5 ?NE£ 
:PEN 1:PAFER G:FRINT' # LE MO 

DE D'EMFLOI#+" 

46 SYMEOL AFTER 32:SYMEOL 91,0,4,2 >2Lé 
59,89,0:PEN Z:INE 2,11:PRINT'ECECEC 
CCCCCCCCCCCCCCCCCCCCCCCCCCECECCECC" 

479 INE 3,26:FEN L:WINDON 1,40,3,25 >HM£ 
:PRINT"CATALOGUE : ":FEN 3 

486 PRINT'CETTE OFTION PERMET DE VO ?RN“ 
IR LE CONTENU D'UN DISC .":PRINT | 
496 FEN 1:PRINT'EXECUTER:":FEN 3 >JP« 
566 PRINT'CELA VOUS PERMET DE LANCE :QF« 
R UN PROGRAMME ET DONC QUITTE <£ GÙ 

PER DISC > ." 

516. PRINT:FEN 1:PRINT'RENOMMER: ":PE WG 
N3 

529 PRINT'COMME SON NOM L'INDIQUE E >QH< 
LLE PERMET DE RENOMMER UN FICHIER 

D'UN DISC C'EST À DIRE CHANGER SON 

NOM SANS L'EFFACER . ": PRINT 

539 PRINT:PEN 1:PRINT'EFFACER: ":PEN RJ< 
549 PRINT'CETTE OPTION PERMET D'EFF >PK< 
ACER UN FICHIERD'UN DISC , MAIS ATT 
ENTION ! CE FICHIER EST ALORS IRREC 
UPERABLE ." 

559 LOCATE 12,23:PEN 2:PRINT'APPUYE >UL< 
1 SUR ESPACE":IF INKEY(47i=6 THEN 5 

6à ELSE PEN 3:LOCATE 12,23: PRINT"AP 
PUYEZ SUR ESFACE":G0T0 556 

569 CLS:PEN 1:PRINT'LISTER: "2 PEN 3  >GM£ 
570 PRINT" C'EST UNE OPTION UN PEU HN 


AH 


>IK 


SPECIALE , CAR ELLE PERMET DE REFRE 
NDRE LE LISTING D'UNPROGRAMME QUE 4 

OUS AURIEZ FROTEGE AUPARAVANT. MAIS 
ATTENTION ! CE N’EST FAS UN DEFLO 

MBEUR 31": PRINT 

0096 PEN 1:PRINT'SPEEDER: ":FEN 3 

996 FRINT'CETTE OPTION PERMET D'ACC : 

ELERER LA VITESSE DU DISC DE 36% ." 
: PRINT 

660 PEN 1:PRINT'QUITTER: ":PEN 3 

6i% PRINT'CELA PERMET DE QUITTER ££ : 

SUPER DISC:> ETDONC DE REVENIR AU B 

ASIC AMSTRAD .“: PRINT 

629 LOCATE 12,23:PEN 2:FRINT"APPUVE 

Z SUR ESFACE":1IF INKEY(47)=ÿ THEN à 

39 ELSE FEN 3:LOCATE 12,23: PRINT"'4F 

PUYEZ SUR ESFACE":G0TO 629 

635 PAPER 2:INK 2,26:MODE 1:PFEN 111 GK 

NE 1,3, 1:LOCATE 16,12:PRINT"Chargem 

ent en cours...":RUN"disc.p" 


Listing 2 


à ON ERROR GOTO 8éë 

10 REM HF 
20 REM 
36 REM 
46 REM 
99 REM KARCHER. Ÿ & MERLIER. D 
6ÿ REM 

76 REM pour les AMSTRADS 


PM 


"SUPER DISC" par : 





86 REM 

96 REM avec lecteur de disquette HE 
1ô6 REM 3FB# 
11ë REM uniquement (CFTC) #10 
12ù REM #HD< 
136 REM (ci 1987 FES 
145 REM 3KF< 
15% REM PROGRAMME PRINCIFAL :KG< 
16ÿ REM ?MH£ 
170 REM HIHI #LJ< 
18û REM FPÉE 
198 REM PRESENTATION AVL£ 
206 REM +6C< 


210 INK D,0:INK 1,26: INK 2,18: INK 3 3JD4 

,15:PAPER G:MODE 1:CLS:SYMBOL AFTER 
1:SPEED KEY 20,1:DIM a$ (8) : BORDER 

OPEN 2:SYMBOL 91,9, 295,255, 255, 255 


1,299, 299, 299 
220 PRINT" CIC € C CCC CCC CCC ?TE< 
CCE CE CCD ECC CO OCLCLCLCE CT 
CCCE €  CLCCEUECEL 
[CC CCCEELTL LILI 
© CCE CC 
[LT (CCI [CE € CCC CCC 


230 PEN 1:PRINT:PRINT:FOR i=i TO 7: ?AF< 
READ d$:a$(i)=d$:LOCATE 15,1+9:PRIN 





T aÿ(i):NEAT 

24% DATA " CATALOGUE "," EXECUTER 
"," RENOMMER "," EFFACER "," LIS 
TER  "," SFEEDER "," QUITTER 
25% PEN 3:FOR 1=14 TO Z6:LOCATE 1,9 
PRINT CHR$ (127) :LOCATE 1,17:PRINT 
CHR$ (127) :NEXT 

260 FOR 1=14 TO 16:LOCATE 14,1:FRIN 
T CHR$(127):LOCATE 26,1:PRINT CHR$( 
127) :NEXT: v=1 

279 REM 

280 REM LE MENU 

296 REM 


?6H£ 


PK 


390 FEN 1:LOCATE 15,y+9:PRINT T's a$ >XD< 


{y} : "x" 
310 o$=INKEYS:1IF o$=" " THEN SOUNE 
1,139,2,6:SOUND 1,6,1,6:G0T0 349 


320 IF o$=CHR$(13) THEN FOR d=166 T : 


D à STEF -19:S0UND 1,d,2:NEXT:G0T0 
36 
35% INK 2, INT (RND#26) :G0T0 366 


340 IF y:27 THEN LOCATE 15,y+9:PRIN >XH< 


T'a$iyi:y=y+1:G0T0 336 ELSE 356 


350 LOCATE 15,16:FRINT a$(7):y=1:60 : 


TO 330 

360 HINDOW 1,49,8,25:CLS 

376 IF y£oé AND y£:7 THEN 419 ELSE 
ë20 

380 REM 

390 REM TESTE LA DISQUETTE 

409 REM 

419 OUT (&FA7E), 1 

424 FOR i=i TO 999:NEXT 
30 OUT (&FE7F),4 

446 OUT (&FE7F),2-FEEK(&A700) 

450 dk=INP (&FE7F) 

46 OUT (&FA7E),0 

476 IF (dk AND 32)=4 THEN FRINT"Dep 
echez vous d'inserez la disquette ! 
":GOTO 376 

406 IF (dk AND 64) THEN FRINT'Mais 
cette disquette est protegee !":FOR 
i=i TO 3066: NEXT: RUN 

496 IF y=1 THEN 769 

360 IF y=2 THEN 749 

910 IF y=3 THEN 570 

929 IF y=4 THEN 780 

330 IF y=5 THEN 82ÿ 

049 REM 

990 REM RENOMME UN FICHIER 

969 REM 

S76 MODE 2:CAT: INPUT " Ancien nom " 
san$:PRINT CHR$(11): INPUT " Nouveau 
non “snn$ 

980 :REN, Enn$, Gan$: RUN 

390 REM 

600 REM AUGMENTE LA VITESSE 

610 REM 


>CK< 
PL 
>FM 


NE 


—< 


#LP< 
#HF< 
LG< 
RH 
2NJ< 
3PKK 
?VL< 
2RM£ 
?EN< 


629 IF y=6 THEN INE G,1:INE 1,24:50 :EJ< 
RDER 1:RÜN"disci.bin" 








639 REM 2PEE 
646 REM QUITTER FL 
b5à REM 2RME 
bëg IF v=7 THEN :EASIC FAN€ 
676 REM AT 
684 REM CATALOGUE :NQ< 
b9ù REM FWRE 
789 MODE Z:CAT:LOCATE 77,25: PRINT'E :XH£ 
Motte Ms CALL BBBO6:CALL SEBG6: RU 

N 

719 REM 2NJE 
72ù REM EXECUTER PK 
73ÿ REM 3QL£ 
744 MODE Z:CAT:INFUT" Nom du fichie >RM« 


r a execute "sf$:INE 0,0: BORDER 111 
NE 1,24: MODE 1:FEN 1:FAFER 9:CLS:RU 
N f$ 


750 REM 3 TN 
766 REM EFFACER 2DP< 
77% REM #VQ< 
780 MODE 2:CAT: INPUT “ Nom du fichi :BR€ 


er a efface “:ef$: ERA. 6ef$: RUN 


794 REM 3ÂT< 
890 REM LISTER WJ£ 
819 REM 3PE< 
826 MODE 2:CAT:INEUT " Nom du fichi :JL< 


er a lister ":df$:LOAD df:LIST 


836 REM RM< 
849 REM Ne tapez pas cette ligne ca *HN 
r elle est la pour faire beau !!! 

894 REM *4#+ F I N ### HP£ 
866 MODE 1:PRINT'Erreur dans la lig :XQ< 
ne no X';ERL;"X .":STOP 

. . 
Le; ah: n : 3 
19 ON ERROR GOTO 144 GE 
26 : +1C{ 
39 ‘ PROGRAMME PERMETTANT D'ACCE-  >YD< 
LERER 
46 ‘ *BE< 
99 ‘LA VITESSE DE VOTRE LECTEUR DE :LF< 
66 ‘ :D6< 
70 +k+ 10 % +44 ?EH< 
89 ‘ ?FJ< 
90 FOR X=41000 TO &1012:READ A:POKE >UK< 
X,A:NEXT 

190 CALL £1900:CALL &BBBA:CALL 8BCO CB 
2:MODE 1:PEN 1:FAFER 0 

119 PRINT'SUPER DISC":PRINT:PRINT"A ?LC£ 
CCELERE LE DISC DE 36%" 

129 NEW ?PD 


159 DATA 33,10,16,223,7,16,261,13,1 :TEX 
98,7,35,0,200,0,1,1,10,0,3 

140 MODE 1:PRINT'ERREUR DANS LA LIG >MF< 
NE no X';ERL;"X . ":STOP 
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JEU 


DON JEAN & 


Dr AG0 





Argh ! L'horrible Dr Agon a capturé la 
jolie princesse. Vous tenez le rôle de Don 
Jean. A vous de sauver la belle des grif- 
fes du démoniaque docteur. 

Le second listing doit impérativement 


être sauvegardé sous le 


‘’DJDATJEU"". 


Lib A 


nom 


ET D LI LCLCLCSCLLELELS LES 
2° ##H#4 HAE DCE 
3 ‘4444 DON JEAN & Dr AGON  #### 

4 +R ##H44 FES 
CRT D CLSC CLESCCLS ECC D 
& : 
A 


pal Michel BUZON - CPC 464/6128 


mi: *# AVRIL 1987 # NEC 


2 OU HAEEMPNNHPPPPPNEHE 
3° M #4 
14 ‘ + PRESENTATION % LOADER # 
15 ‘ #4 ## 
16 HEIN 


18 >GK< 
20 CALL &BB4E:CALL MBBFF:GOSUB 4010 > 
O:CALL SEC6S:SYMEOL AFTER 126: OPENO 
UT“d": MEMORY 2SFFF:FOR F=kb000 TO & 
&O17:READ AS:POKE F, VAL ("&"+A$) :NEX 
T: DAT=0:EW 1,1,127,1,16,-1,B2ENT 
1,80,0,1,129,1,1,120,1,1:EVERY 20 G 
OSUB 61520 
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Michel BUZON 





25 DATA 21,00, C0, 11,18,60,01,06,40, à 
ED,B0,C9, 21,18, 60, 11,00, C0, 01,06, 40 
ED, B,C9 
26 SYMEOL 126,295, 128, 128, 255,8,8,2 > 
55,9 
27 SYMBOL 127,0,5,7,9,11,29,29,62  ?JK£ 
28 SYMBOL 128,9,164,228,132,196,252 >KL£ 
, 228,228 
29 SYMBOL 129,62, 29,29,11,10,4,12,0 >DM< 
30 SYMBOL 130,228, 228,228, 226,68, 36 >ND< 
,52,0 

31 SYMBOL 131,255, 146, 146, 128, 120, 11 >AEX 
ie 249 

2 SYMBOL 132,255,73,73,1,1,3,7,19 à2F< 

33 SYMBOL 133, ire »XG< 
24, 128,255 

34 SYMBOL 134,199,159,31,31,15,7,1, 
255 

35 SYMBOL 135,0,49,19,19,17,31,7,3 DLJé 
36 SYMBOL 136,0,0,192,44,0,249, 144, MK£ 
144 
37 SYMBOL 137,3,3,7,19,31,63,127,0 BL 
38 SYMBOL 138,144,216,224,240,240,2 }IM< 
Vas ut 0 

39 SYMBOL 139,255,253, 248, 242,248,2 >BNKK 
54, 128, 149 

40 SYMBOL 140,255,191,3 
1,49 

41 SYMBOL 141,158,191,183,227, 247,2 DUF< 
47,240,255 
42 SYMBOL 142,25, 13, 141,207,239,239 >TG< 
5199299 
44 SYMBOL 144,1,1,2,3,5,6, 11,13 


1,79,31,127, DFEX 


PJ 


45 SYMBOL 145,21, 26,37,950,85, 106,18 >YK< 
1,218 

46 SYMBOL 146,0,0,49,49,19,19,23,19 >2L< 
47 SYMBOL 147,9,0,0,0,192,192,64,64 >HM< 
48 SYMBOL 148,17,17,31,31,7,7,3,3  2FN< 
49 SYMBOL 149,9,0,249,246,144,144,1 3EP< 
44,144 

50 SYMBOL 150,3,3,3,3,7,7,19,19 EF 
91 SYMBOL 151,144,144,216,216,224,2 ;QG< 
24,246,240 

S2 SYMBOL 152,31, 
19 

93 SYMBOL 153,248,248,292,292,254,2 ?QJ< 
54,0,0 

d4 SYMEOL 154,255,199,156,232,242,2 3RÉ« 
36,224,249 

99 SYMEOL 153,295,249,57,23,79,193, 
7,159 

J6 SYMEOL 156,252,251,248,244, 
99,199,295 

37 SYMBOL 157,63,223,31, 
249,255 

199 PRE=6:MODE G:HINDOH 1,26,1,25:B >ZE< 
ORDER 13:PAPER G:PEN 1 

191 LOCATE 2,1:FEN 3:PRINT "CPC & M 
ichel BUZON" 

193 LOCATE 6,3:PEN 1:PRINT "present 
ent" 

166 WINDOW #1,1,20,9,7:PAPER #1,3:P :DH< 
EN #1,2:CLS#1:PRINT#I:PRINT#1," DON 
JEAN % Dr AGON" 

199 LOCATE 20,9:FEN S:PRINT CHR$(14 HLé 
4) 

116 LOCATE 2,10:FOR F=1 TO 4:PRINT 
CHR$(207)" "seNEXT:LOCATE 20, 16: PRI 
NT CHR$ (145) 

111 LOCATE 2,11:FO0R F=i TO 4:FRINT RD 
CHR$(207)" "s:NEXT: PRINT" Ms: PEN 3: 
PRINT CHRS (139)CHRS (140): LOCATE 19, 
11:PEN 5:PRINT CHR$(144)CHRS (207) 
112 LOCATE 2,12:F0R F=1 TO 7:PRINT 
CHR$ (207); :NEXT:LOCATE 11,12:PEN 3 
PRINT CHR$(141)CHR$ (142) :LOCATE 19, 
12:PEN S:PRINT CHR$ (145) CHR$ (297) 
113 LOCATE 2,13:PRINT CHR$(297)CHR$ >QF< 
(207) CHR$ (217) CHR$ (207) CHARS (207) CHR 
$(207)CHR$ (207) :LOCATE 18, 13: PRINT 

CHR$ (144) CHR$ (207) CHR$ (297) 

114 LOCATE 2,14:PRINT CHR$(221)CHR$ ?KG< 
(207) CHR$ (217) CHR$ (207) CHR$ (207) CHR 
$(207)CHR$ (229) :LOCATE 18,14: PRINT 
CHR$ (145) CHR$ (207) CHR$ (207) 

115 LOCATE 3,15:FOR F=1 TO S:PRINT 
CHR$ (297): :NEXT:LOCATE 14,15:PEN 7: 
PRINT CHR$(146)CHR$ (147) :LOCATE 19, 
15:PEN 5: PRINT CHR$ (267) CHR$ (297) 
116 LOCATE 3,16:PRINT CHR$ (207) CHR$ 
(207) CHR$ (207) CHR$ (219) CHR$ (207) :LO 
CATE 14,16:PEN 7:PRINT CHR$ (148) CHR 
$(149) :LOCATE 19,16:PEN S:PRINT CHR 


31,62,63,127,127,6 >FH< 


238,1 >LM£ 


7,119,249, 


?EC< 


BE 


?QE< 


>VH& 


NT 


$(207)CHR$ (207) 
117 LOCATE 3,17:PRINT CHR$ (207) CHK$ 
(207) CHR$ (267) CHR$ (219) CHR$ (207) :LO 
CATE 14,17:PEN 7:PRINT CHR$(159)CHR 
$(151):LOCATE 19,17:PEN S:PRINT CHR 
$(207) CHR$ (217) 
118 LOCATE 3,18:FOR F=1 TO S:PRINT 
CHR$ (207) ;:NEXT: LOCATE 14,18:PEN 7: 
PRINT CHR$ (152) CHR# (153) :LOCATE 19, 
18:PEN 5:PRINT CHR$ (297) CHR$ (217) 
119 LOCATE 3,19:FOR F=1 TO S:PRINT 
CHR$ (207) ;:NEXT:LOCATE 19,19: PRINT 
CHR$ (207) CHR$ (207) 
126 LOCATE 3,29:PRINT CHR$ (207) CHR$ 
(220) CHR$ (221) CHR$ (297) ;:FOR f=1 TO 
b:PRINT CHR$(207)" "3 :NEXT: PRINT C 
HR$ (247) CHR$ (207) 
121 LOCATE 3,21:FRINT CHR$ (207) ;:PE 
N 6:PRINT CHR$(127)CHR$ (128) ; : PEN 5 
PRINT CHR$(297);:FOR f=1 TO 6:PRIN 
T CHR$(207)" "se NEXT: PRINT CHR$ (207 
)CHR$ (207) 
122 LOCATE 2,22:PRINT CHR$ (222) CHR$ 
(207) ::PEN 6:PRINT CHR$ (129) CHR$ (13 
0)3:PEN 5:PRINT STRINGS (15, CHR$ (207 
}) 
123 LOCATE 1,23:PEN 4:PRINT CHR$ (22 
2)::PEN S:PRINT CHR$(267)CHR$ (207)C 
HR# (218) CHR$ (218) STRINGS (15, CHR$ (20 
7)) 


124 LOCATE 1,24:PEN 4:PRINT STRINGS > 


(20,CHR$ (216) }:CALL 86009 
125 CALL #690C:LOCATE 
PEN !:PRINT'Regle du jeu (O/N)":605 
UB 60006:PRE=1:HHILE INKEY#<:"":HEN 
D 

130 R$=UPPERSCINKEYS) 2 IF R$="N" THE 
N R=REMAIN (9) : SOUND 135,0:LOCATE 2, 
25:PRINT' Veuillez patienter": INE 6, 
1:INK 7,16: RUN"! DJDALJEU. BAS" :ELSE 
IF R$<;"0" THEN 139 

135 ‘ 

140 ‘HOMME 
150 ‘#xkHtt#t REGLE DU JEU ###4##44 
ITU TT II CISLLE SES LLELLESS ES) 
170 MODE 1:GO0SUB 60109: WINDOW 1,40, 
1,25:PAPER 2:PEN 3:CLS:WINDOW #1,4, 
37,4,19:PAPER #1,2:PEN #1,1:CLS#1 
180 FOR F=i TO 39 STEP 2:LOCATE F,1 
:PRINT CHR$ (139) CHR$ (140) :LOCATE F, 
2: PRINT CHR$(141)CHR$ (142) :LOCATE F 
,21:PRINT CHR$ (139) CHR$ (140) : LOCATE 
F,22:PRINT CHR$ (141) CHR$ (142) :NEXT 
198 FOR F=3 TO 19 STEP 2:LOCATE i,F 
PRINT CHR$ (139) CHR$ (140) : LOCATE 1, 
F+1: PRINT CHR$(141)CHR$ (142) : LOCATE 
39,F:PRINT CHR$ (139) CHR$ (140) : LOCA 
TE 39,F+1: PRINT CHR$(141)CHR$ (142): 
NEXT 

240 WINDOW #2,1,40,23,25:PAPER #2,0 


2,25:PAPER 0: > 


#NK< 


CL 


>UM< 


>QD< 


JE“ 


+ 


>KF 


>Q64 


?KE< 


3JK< 
>DF< 
?DG 
>FH€ 
>CJ 


2MK< 


?FL< 


>JC< 


:PEN #2,1:CLS#2:WINDOW SWAP 9,1:G05 
UB 295 
219 PRINT:PRINT" La princesse T 
AIK'ONERY a ete":PRINT" enlevee par 
Ll'ignoble Dr AGON qui":PRINT" 1 
a sequestre dans l'une des 64":PRIN 
T'pieces de son chateau. “: PRINT 
220 PRINT:PRINT"Vous, DON JEAN HERAL 
D BOLL,devez la":PRINT" delivrer et 
la ramener dans votre":PRINT"inexp 
ugnable citadelle.....":G0SUB 66960 
tHHILE INKEY$<>"":HEND:HHILE INKEY$ 
="; HEND: CLS#2: CLS: INK 1,12 
230 PRINT:PRINT"Le Dr AGON n'est vi 
sible que quand":PRINT'"il attaque 5 
es adversaires." 
249 PRINT:PRINT"Vous avez droit a t 
rois vies.":PRINT:PRINT" La premi 
ere vous permet de vous":PRINT" dep 
lacer de 8 cases à la fois, la":PRI 
NT" deuxieme de 6, la troisieme de 
4," 
299 PRINT" Il vous faudra d'abor 
d choisir":PRINT'la case de votre c 
itadelle.....":INK 1,0:G60SUB 295:4H 
ILE INKEY$<"":WEND: HHILE INKEY$="" 
:HEND: CLS#2: CLS: INK 1,12 
255 PRINT:PRINT'Puis le Dr AGON 5'e 
nvolera avec la":FRINT"princesse da 
ns sa chambre secrete." 
266 PRINT:PRINT" Lors de vos deplac 
ements a l'’aide":PRINT" des touch 
es flechees,il se peut":PRINT" que 
vous soyez arrete par un mur":PRIN 


LE invisible qui se materialiser 
a":PRINT'alors ainsi : "STRING$ (4,C 
HR$ (126) ) 


270 INK 1,60:G0SUB 295:WHILE INKEY$< 
"M: HEND:WHILE INKEY$="": END: CLS#2 
:CLS: INK 1,12:PRINT"Si vous etes a 
moins de 3 cases de":PRINT"la piece 
ou est la princesse, vous":PRINT" 
reveillerez le Dr AGON qui vous": 
PRINT" poursuivra en volant d'une 
case" 
280 PRINT'a la fois. ":PRINT:PRINT" 
Reperez bien votre position quand": 
PRINT"il se reveillera, sinon..." 


290 PRINT:PRINT:PRINT" BONNE 
CHANCE !":INK 1,0:G0SUB 295 

2NHILE INKEYS<>"":WEND: MHILE INKEYS 

="*;WEND: MODE 0:60T0 125 

295 LOCATE #2,4,2:PRINT#2, "### TAPE 

1 ESPACE POUR LA SUITE ###":RETURN 

59999 ‘ 

&a000 INK 0,13: INK 1,0: INK 2, 12: INK 

3,3: INK 4,9: INK 5,15:INK 6, 1:IK 7 

,1&:RETURN 

60100 BORDER 13:FOR F=0 TO 7:INK F, 


+G6D< 


?NE< 


ÿ 


1 


Fé 


?LG< 


>YH 


?PN< 


PWI< 


se 
4 
ES 
PS 


> IL 


>MM£ 


DXT 


VV 
?BG< 


>UH€ 


13:NEXT : RETURN 

b181 ‘ 

60996 HIHI EEE 
60997 ‘####HHEEE SO N GS HN 
69998 AE 
66999 

61000 DAT=DAT+1: IF DAT=85 THEN 6109 
e 

61919 O=-1#(DAT<43)-2# (DAT>42) 
61920 IF DAT=43 THEN RESTORE 61106 
61930 IF PRE=1 THEN INK 6, INT(RND(1 
1#13)+14: INK 7, INT (RND(1)#13) +14 
61049 READ D,N2,N1,N4 

41950 SOUND 1,N1\0,D,11,1 

41060 SOUND 2,N2\0,D,14,1 

41070 SOUND 4,N4\0,D, 11,1 

61980 RETURN 

61096 SOUND 1,80,320,5, ,1:SOUND 2,4 
0,320,5,,1:S0UND 4,95,320,5, , 1: DAT= 
O:RESTORE 61190:RETURN 


&1190 DATA 6ô,239,319, 379 
b1110 DATA 10,239,319, 379 
61120 DATA 19,239,319, 379 


61139 DATA 60, 239,319, 379 
41149 DATA 10,239,319,379 
61150 DATA 10,239,319,379 


b1160 DATA 20,239,319, 379 
61170 DATA 20,319,379, 478 
41180 DATA 29,239,319,379 
61190 DATA 29,190, 239,319 


b1206 DATA 20,239, 319, 379 
61210 DATA 29,319,379,478 
61220 DATA 20,239, 319, 379 


É | 61230 DATA 29, 190,239, 319 


61240 DATA 60,239,319, 402 
81250 DATA 10,239, 319, 402 
61260 DATA 10,239,319, 402 


61270 DATA 60,239,319,402 
61280 DATA 10,239,319,402 
61290 DATA 19,239,319,492 


161300 DATA 29, 239,319, 402 


bi310 DATA 26,319,402,478 
61320 DATA 20,239,319,402 
61330 DATA 20,201,239,319 


41340 DATA 20, 239,319, 402 
61350 DATA 20,319,402,478 
61360 DATA 20,239, 319, 402 
61370 DATA 20,201,239,319 


81380 DATA 60,213, 253,319 
41390 DATA 10,213,253,319 
61400 DATA 10,213,253,319 


MIX 
>UH< 
>KJ< 
2WK< 
PL 
>DH< 


FX J< 
?KK< 
>HL< 


2TM< 
?DN< 
KP 
2MQK 
> IR< 
KT 


JWYE 
>AJ£ 
FWK£ 
#XL< 
AR 
?DM< 
?IN€ 
#AF< 
}DV< 
?CQ* 
?JR 
?ET< 
3WU< 
>H1€ 
?XK€ 
?DL< 





&1419 DATA 60,213,253,319 
61429 DATA 10,213,253,319 
61430 DATA 14,213,253,319 


61449 DATA 20,213, 253,358 
61450 DATA 20,253, 358, 424 
bi460 DATA 20, 213,253, 358 
61470 DATA 20,159, 213,253 


41480 DATA 20, 179,213, 253 

61499 DATA 20,213, 253,358 

61500 DATA 20, 179,213, 253 

61510 DATA 29, 196, 127, 179 

61520 ON SQ(2) GOSUB 61909:0N SQ(1) 
GOSUB 61000:0N SQ(4) GOSUB 61000:R 
ETURN 


Listing 2 


À HE 
2 ‘HE HE 
3 ‘#### DON JEAN & Dr AGON  #### 
CT HAE 
CRMPTTITT PISTE CLIS SIT 
6: 

7 


‘par Michel BUZON - CPC 464/6128 


ONE 
#4 ### 
## J E U #+ 
##4# #44 
HN 


20 DEFINT A-R,T-Z:DIM MUR (187) ,NO$( 
11):FOR F=1 TO 9: SCORE (F)=222222-F# 
F#2222:READ NOMS (F) :NEXT:FAC=0 

36 DATA HARRY COVER, JEAN EMARD, RENE 
E GHA,PAULE AUNET, PIERRE AFEL, YVAN 
DECLOU, JIM NASTIC, SAM DIRIEN, MARC H 
EUMAL 


40 ENV 1,19,1,1,29,-1,1,20,1,1,127, 


-1,1:S0UND 7,4000, 600, 10,1, ,31: MODE 
1:BORDER 9:G0SUB 60100:MINDOW 16, 4 
6,1,2S:PAPER 2:PEN 1:CLS:WINDOW #1, 
1,15,1,25:PAPER #1,0:PEN #1,1:CL9#1 
:WINDOW #2,2, 14,2,6:PAPER #2, 3:PEN 
#2, 2: CLS#? 
5 PEN 0:FOR Y=2 TO 24:LOCATE 2, V:P 
RINT STRINGS (23, CHR$ (207) ) :NEXT:ORI 
GIN 15,303: DRAM 0,82: DRAWR 219,0: DR 
AUR 9,-82:DRANR -210,0:PRINTH2:PRIN 
142," DON JEAN": PRINT#2: PRINT#2, " 


20 


LB 
? IC 
>RD< 
?XE< 
2QF< 
BG 
>KH< 
?VJ< 
PXK< 
?GE< 
}1CE 
?KD< 
*AE< 
>HF< 
?C6< 
>PH< 
2FJ< 
>GE< 
?TC< 


?GD4 


HF 


& Dr AGON":ORIGIN 2,2:DRAW 9,395: D 
RAR 232,0: DRAUR 0,-395:DRAMR -232, 
É 

bQ PEN 1:PAPER O:LOCATE 1,1:FOR #=1 
TO 25:PRINT CHR$ (126) ;:NEXT:FOR #= 
2 TO 24:LOCATE 1,F:PRINT CHR$ (126): 
LOCATE 25,F:PRINT CHR$(126) :NEXT:LO 
CATE 1,25:FOR #=1 TO 25:PRINT CHRS( 
126) ; :NEXT 

70 ORIGIN 239,2: DRAW 0,397: 0RIGIN 4 
39,399: DRAW 0,-397:REM DRAWR -400,0 


80 PAPER 2:FOR Y=4 TO 22 STEP 3:LOC ; 


ATE 2,Y:PRINT STRINGS(23," "):NEXT 
96 FOR X=4 TO 22 STEP 3:FOR Y=2 TO 
24:LOCATE X,Y:PRINT " "iNEXT Y,X 
190 FOR x=2 TO & STEP 2:LOCATE #i,x 
,B:PRINT#1,CHR$ (24) CHR$ (127) CHRS$ (12 
8):LOCATE #1,x,9:PRINT#1,CHR$(129)C 
HR$ (130) CHR$ (24) :NEXT:LOCATE #1,8,8 
:PRINT#1,CHR$ (24) CHR$ (135) CHR$ (136) 
LOCATE#1,8,9:PRINT#1,CHR$ (137) CHR$ 
(138) CHR$ (24) 
119 LOCATE#1,10,8:PEN #1,3:PRINT#1, 
CHR$ (139) CHR$ (140) :LOCATE #1,10,9:P 
RINT#1,CHR$ (141) CHR$ (142) 
120 PEN#1,1:LOCATE #1,13,B8:PRINT#I, 
CHR$ (131) CHR$ (132) :LOCATE #1,13,9:P 
RINT#1,CHR$ (133) CHR$ (134) 
130 WINDOW #3,2,14,11,24:PAPER #3,3 
PEN #3,0:CLS#3: ORIGIN 15,15: DRAW 0 
,226:DRAWR 210,0: DRAWR 4, -226: DRAKR 
-210,0:CALL &6009:HINDOW #4,3,38,2 
1,23:PAPER #4,0:PEN #4,1:G0SUB 6929 
C] 
149 A$=" ss ssssns 
touches flechees, placez votre cit 
adelle ou vous le desirez, puis app 


159 C=2:ENT 1,20,-1,1:WHILE INKEV$< 
2 "Us WNEND:F=FRE ("") :GOSUB 60006: HHIL 
E INKEY$="":D$=LEFTS (A$, 1) :C$=RIGHT 
$ (A$,LEN(AS$)-1) : A$=C$+D$: B$=LEFTS (A 
$,34):C=Cx2:C=C+7*(C>4) : GOUND C,80/ 
C,4,4,,1:LOCATE #4,2,2:PRINT#4,B$:4 
END 
153 ‘ | 
154 ‘-emplacement de la citadelle- 
155 CALL &690C:FOR F=û TO 1:LOCATE 
#1,13,8+F:PRINT#1,"  “:NEXT:FOR F=1 
TO 31:S0UND 5,0,1,7,,,F:NEXT: XC=2: 
X=XC:YC=8: Y=YC:CA=131 : FA=0: PE=1 :60S 
UB 60369 
169 FL$=" 
$(242)+" "+CHRS (249)+" "+CHRS (241) + 
""4CHR$ (243) : CLS#3: LOCATE#S, 1,2:PR 
INT#3,FL$:LOCATE#S, 6, 6: PRINT#3, "PUI 
S"':LOCATE#S, 5,8: PRINT#3, "CCOPY]":LO 
CATE#S, 6, 10: PRINT#3, "POUR": LOCATE#S 
54,12: PRINT#3, "VALIDER" 


A l'aide des : 


TOUCHES"+SPACES (19)+CHR > 


2YG< 


> TH 


>QB< 


2MC< 


es 


MD 


#DE< 


Se 
4 
>QG< 


185 WHILE INKEY(9):SOUND 2,9, 10,2, , : 


,1:IF INKEY(O) AND INKEY(1) AND INK 
EY(2) AND INKEY(8) THEN 165 ELSE XC 
1=XC+3#(INKEY(8)=0 AND XC>4)-3# (INK 
EY(1)=0 AND XC<21): YC1=YC+3#(INKEY ( 
0)=ù AND YC>4)-3#(INKEY(2)=0 AND YC 
{21) 
170 X=XC:Y=YC:GOSUB 60400: XC=XC1: YC 
=YC1: X=XC: Y=YC:PE=1:PA=0:CA=131:60S 
UB 60300:PA=3:SOUND -1#(XC<=11)-4#( 
XC>=14),XC+YC#4,8,7+(XC\3)#(KC<14) + 
((25-X0) \3)#(XC>11) : WEND 
175 ‘-emplacement chambre secrete- 
180 CLS#3:LOCATE#S, 2, 3: PRINTHS, "LE 
Dr AGON":LOCATE#S, 3,5: PRINT#3, "G'EN 
FUIT": LOCATE#S,5, 7: PRINT#S, "AVEC": L 
OCATE#S, 6, 9:PRINT#3, "LA": LOCATERS, 3 
,11:PRINT#3, “PRINCESSE" 
190 FOR F=19 TO 8 STEP -2:LOCATE#I, 
F,8:PRINT#1,"  ":LOCATE#I,F, 2: PRINT 
#1," ":FOR S=1000 TO Ô STEP -20:50 
UND -4#(F=10)-1#(F=8),S,1,7:NEXT 5, 
F 
195 CH=1:G0SUB 69609: DRIGIN 120,274 
:DRAW 9,-22:DRAUR 92,0::FO0R 0=0 TO 
12 STEP 4:0RIGIN 120+0,276+0: DRAM 9 
2,0:DRAWR 0,-22:NEXT 
260 RANDOMIZE TIME: XP=INT (RND (1) #8) 
+1: XP=XP#S- 1: YP=INT (RND (1) #8) +1: YP= 
YP#3-1: XT= XP: YT=YP: XT1=XC: TIC: t= 
9:GO0SUB 460500: SOUND XT\4+1,0,1,7,,, 
XT:IF FLAG THEN 200 ELSE XA=XP: YA=Y 
P 
244 
205 ‘tirage au sort du labyrinthe 
219 FOR F=1 TO 187:MUR(F)=Q:NEXT: IF 
FAC=0 THEN S=INT(RND(1)#2):FOR NM= 
© TO 6:MUR(INT (RND(1)#76)+11-100%(5S 
>9))=1:NEXT:FAC=1:60T0 239 


220 LAB=INT (RND(1)#20)+1:0N LAB GDS : 


UB 61010,61929,61039, 61049, 61850, bi 
d60,61076,61080, 61090, 61100,61110, 6 
1129,61130,61140,61150,41160,61176, 


61180,61190, 61200 
24 ‘ 
225 ‘-———— INITIALISATION ------ 


230 MORT=0:V1=4:PD=0: RV=9: ND=0: CH=N 
Mk10+1:TI=CH\2:EVERY 50 GOSUB 60660 
VIES=VIES-1 -----— 
246 VI=VI-1:1F VI=0 THEN PAPER 1:PE 
N 0: FOR L=0 TO 1:LOCATE XP, YP4#L:PRI 
NT CHRS(139+#L42) CHRS (136#L#2) : NEXT: 
60TO 2010 
250 XJ=XC:YJ=YC:FOR L=0 TO 1:LOCATE 
#1,VI#2, 8#L:PRINTH1, CHRS (32+1224M0R 
THLA2#MORT ) CHRS (3241 234MORT4L422M0R 
T):NEXT:FOR S=31 TO 1 STEP -1:S0UND 
5\7+1,0,1,7,,,S:NEXT:60SUB 66700: C 
LS#3 


#FJ< 


?CP4 
>JK< 


>UL< 


?6R< 


VC 


?BH 


254 ‘ ?LM< 
2 ‘= BOUCLE DE VIE ------- >IN< 
260 NC=VI#2+5:G0SUB 60810 >XJ< 
264 ” 2MN< 
265 ‘-- BOUCLE DE COUPS À JOUER -- >KP< 


270 WHILE INKEY$<)>"":WEND: NC=NC+1#( 2 YK< 


NC)0):IF NC=0 THEN 900 ELSE LOCATER 
3,10,12:PRINT#3S,NC 

274 ‘ >P4 
275 ‘--——— DON JEAN JOUE ------— >NQ 
280 IF CH&1 THEN 2000 ELSE IF RV=0 KL 
AND CHCTI THEN GOSUB 1009 

285 SES=INKEVS: IF SES<CHRS (240) DR >WR< 
SES>CHRS (243) THEN 280 

290 ND=ND+1: XT=XJ+1#(SES$=CHRS (242) >PMé 


AND KJ>4)-2#(GE$=CHR$ (243) AND XJ<2 
1):YT=YJ+1#(SE$=CHRS (240) AND YJ>4) 
-2#(SE$=CHR$ (241) AND YJ<21):IF XT= 
XJ AND YT=YJ THEN 280 

294 ?QR< 
ET 
>KD< 


TEST MUR ? 

300 IF SE$=CHR$ (240) DR SE$=CHR$ (24 

1) THEN TE=100+(XT\3+1)#10+(YT\3) E 

LSE TE=(XT\3)#10+(YT\3)+1 

304 ‘ 

395 ‘ STOP MUR ! 

310 IF MUR(TE)=0 THEN 409 ELSE CLS# 

3:LOCATE#3,1,4:PRINT#3,"  STOP !" 

+SPACES(30)+"ICI, IL Y A"+SPACES (31 
)+"UN MUR" 

320 PAPER 0:PEN 1:FO0R F=-1 TO 2:L0C 

ATE XT-P#(TE»99),YT-Px(TE£99) : PRINT 
CHR$ (126) :NEXT 

330 ORIGIN 639,2: DRAW 9,397: RANDOMI 

ZE TIME:FOR F=10 TO 199 STEP 10:S0U 

ND -1#(XT<=13)-4#(XT2=13), 1900, 4,7+ 
(XT\P#(XT<13)+((25-XT) \4)#(XT 13) : 
INK 1,INT(RND(1)#12)+14:FÜR W=1 TO 

F#3:NEXT W,F:INK 1,9:G0T0 990 

394 

395 ‘-TEST Nile POS. de DON JEAN- 
400 IF XJ=XC AND YJ=YC THEN 410 ELS 

E X=XJ:Y=YJ:G0SUB 66499 

410 XJ=XJ+3#(SES$=CHRS (242) )-3# (SE$= 

CHRS (243) ) : YJ=YJ+3# (SES$=CHR$ (249) ) - 
3#(SE$=CHR$ (241) ) 

420 IF PD=0 AND XJ=XP AND YJ=YP AND 
(XPOXA OR YFOYA) THEN PD=1 

430 IF PD=2 AND XJ=XC AND YJ=YC THE 
N PAPER 1i:PEN 0:FOR L=0 TD 1:LOCATE 
XC,YC+L: PRINT CHR$(135#L#2) CHR$ (13 
b+L#2) :NEXT:GOTO 3909 

440 IF XJ=XC AND YJ=YC THEN 519 

498 ‘ 

49 RAS 

560 X=XJ:Y=YJ:PA=2:CA=127-8# (FD>0) : 

GOSUB 693500 

510 ENT 1,19,-19,1:SOUND -1#(XJ<=11 >XG< 

)-4#(XJ2=14),2090+1900% (PD>0),10,7+ 
(XJ\S)#(XJ<14)+((25-XJ)\3)#(XJ511), 


>6H< 
PVJ< 
JE 


>RF< 


RG 


RTS 
FU 
)CE< 


YF 


?BG< 


?LH< 


1 
L 
520 IF PD=2 AND KJ=XC AND YJ=YC THE 
N 3000 
530 IF RV=0 THEN T=6:XT=XJ:YT=YJ:XT 
1=XA:YT1=YA:GOSUB 60500: IF FLAG THE 
N 6OSUB 1000 
598 
599 ‘-—— PRINCESSE DECOUVERTE -—- 
400 IF PD<>1 THEN 700 
b1è CLS#3:LOCATE#S, 4, 2:PRINTHS, “RAM 
ENEZ":LOCATE#S, 7, 4: PRINT#3, "LA":LOC 
ATEHS, 3,6:PRINT#S, "PRINCESSE" : LOCAT 
E#3, 6, 8: PRINT#S, "DANS": LOCATEKZ, 7, 1 
0: PRINTHS, "LA": LOCATEHS, 3, 12: PRINT# 
3, "CITADELLE" 
620 FOR W=1 TO 34:S0UND 5,W,4,W\é+i 
2 INK 3, INT(RND(1)#12)+14:F0R 1=0 TO 
MeNEXT I,W:FOR W=1 TO 200:NEXT: IN 
K 3,3:PD=2: IF NC=1 THEN NC=0:60T0 9 
00: ELSE GOSUB 60800 
698 
699 ‘- LE Dr AGON VOUS ATTAQUE - 
70 IF XJ=XA AND YJ=YA AND (XJGXC 
OR YJ<>YC) THEN 719 ELSE GOTO 270 
710 CLSH3:LOCATE#S, 1,4: PRINTH3," L 
E Dr AGON"+SPACES (31) +"VOUS"+SPACES 
(34)+" ATTAQUE": PAPER 0:PEN 3:FOR L= 
6 TO 1:LOCATE XA,YA+L:PRINT CHRS(13 
94L#2) CHRS (140+L#2) :NEXT 
720 RANDOMIZE TIME:FOR F=19 TO 100 
STEP 19:SOUND XA\4+1,F#20,F, 7: I=INT 
(RND(1)#12)+#14: INK 0, I: BORDER I:FOR 
W=1 TO F#16:NEXT W,F: BORDER 9: INK 
0,13 


730 X=XA:Y=YA:GOSUB 6640: MORT=1: IF : 


XA=XP AND YA=YP THEN PD=2 
798 ‘ 

PRINCESSE MORTE ------ 
809 PM=0:1F PD=0 THEN 240 ELSE PM=1 
:A$="La Princesse est morte, vous n 
e pouvez lui survivre":G0T0 2626 
898 ‘ 


Dr AGON JOUE 
960 IF CH<1 THEN 2000 ELSE IF RV=0 
OR (XJ=XC AND YJ=YC AND XA=XP AND Y 
A=YP) THEN 264 


910 CLS#3:LOCATE#Z, 1,4:PRINT#3," L > 


E Dr AGON" 

920 IF XJ=XC AND YJ=YC THEN LOCATE# 
3,1,7:PRINT#3,"  RETOURNE"4SPACES ( 
31)4"CHEZ LUI":FOR F=6 TO 1 STEP -1 
:G0SUB 940:NEXT: XA=KA-3# (XP KA) +34 ( 
XPXAD : VA=YA-3x (YP> YA) +34 (YP<YA) 2 IN 
K 0,13:60T0 260 

936 LOCATEK3,1,7:PRINT#3," VOUS 
*4SPACES (33)+"POURSUIT":FOR F=1 TO 
6:GOSUB 940:NEXT: XA=KA-3# (XJ> KA) +34 
(XJÉKAÏ : VAS YA-32 (VID YA) +34 (YJKYA) : I 
AK 0,13:IF KA=XJ AND YA=YJ AND (XJ< 
>XC OR YJ<>YC) THEN 710 ELSE GOTO 2 


>AH€ 


NI 


YZK 
>JA< 
>JG< 
>HH< 


LI 


> ZAC 
DB 
>RH€ 


DJ 


PNK4 


2 JM< 


>6N< 


) 
940 FOR B=1 TO 31:SOUND F,0,2,F,,,B >BP4 
2 INK 9, INT (RND(1)#14)+12:NEXT: FOR W 
=1 TO 100-F#10:NEXT: RETURN 
998 ‘ >CD 
999 ‘-- LE Dr AGON SE REVEILLE --- /EE4 
1908 CLS#3:LOCATE#S, 3, 4:PRINTHS, "LE AB 
Dr AGON":LOCATERS, 7, 7:PRINTKS, "SE" 
:LOCATE#S, 4, 10:PRINT#S, "REVEILLE":P 
APER#2,0:PEN#2,3:FOR L=0 TO 1:LOCAT 
E#2, 12, 1+L:PRINT#2, CHRS (1394L#2) CHR 
$(140+L#2) :NEXT 
1919 FOR F=7 TO 1 STEP-1:FOR R=10 T 
0 1 STEP-1:S0UND 5,0,2,8-F, ,,F#4: IN 
K O,INT(RND(1)#14)+12:FOR W=1 TO F4 
RKS:NEXT M,R,F: INK 0, 13: RV=2: GOSUB 
60809: LOCATE#S, 10, 12:PRINTHS, NC:RET 
URN 
1993 ‘ 
1994 AH 
1995 ‘+ 
1996 ‘+ 


?TC< 


JAL< 
?EA 
* >UB< 
PERDU # }MC< 
1997 ‘# # >WD< 
1998 ‘HIHI JE 
1999 ‘ ?GF< 
2000 A$="Tiens !.. .!.... Les ?EC{ 
rois faineants existent encore ?“: 
6OTO 2029 
2019 A$="Plus aucune vie, pas d'esp 
oir" 
2020 R=REMAIN(0) :PAPER 1:PEN 6:FOR 
L=0 TO 1:LOCATE XP,YP+L:PRINT CHR$( 
139+L#2) CHR$ (136+L#2) :NEXT:PAPER 6: 
PEN 3:FOR L=0 TO 1:LOCATE XA,YA+L:P 
RINT CHR$(139+L#2)CHR$ (149+L#2) : NEX 
T 
2023 IF VI£{1 OR CH£1 THEN PAPER 0:P 
EN 3:FOR L=Q TO 1:LOCATE XJ,YJ+L:PR 
INT CHR$(154+L#2) CHR$ (155+L#2) :NEXT 


2025 CLS#3:PEN#S,1:FOR L=2 TO 9:LOC 
ATE#S, 7,L:PRINT#S,CHR$ (143) :NEXT:LO 
CATE#S, 4, 4: PRINT#S, STRINGS (7, CHR$ (1 
43)):1F (XA=XP AND YA=YP) OR PM=1T 
HEN PAPER 3+2#(CH<1):PEN 9:FOR L=ÿ 
TO 1:LOCATE XP, YP+L:PRINT CHR$(135+ 
L#2) CHR$ (136+L#2) :NEXT 
2030 B$=STRINGS (29, ",") :A$=BS+A$+", 
eus. ADIEU !........ sus. Appuyez 
sur CESPACE] pour rejouer....,..., 


UD 


?HEX 


>PHé 


?JK< 


>DF< 


>6L£ 
2049 N$(2)="23933923923920121521323 >Q6< 
9239268239000" 

2959 D$(2)="120096007012009003009003 >FH< 
00900350120120" 

2860 N$(1)="40247835860246231935842 EJ< 
6’ 

2076 D$(1)="36012012012009003009003 ?LK< 
9" 

2080 N$(4)="47063860253647863856850 >QL4 


21 


6" 

2090 D$(4)="24012012012021003009007 >GM< 
@" 

2695 ‘ DNT 
2190 C(23=-2:C(1)=C(2):C(4)=C(2):EN >ND< 
V 1,120,-1,15:EVERY 36 GOSUB 2150 

2119 GOSUB 60200:F=FRE(""):MHILE IN KE 
KEY$<C>" ":D$=LEFTS (AS, 1) :C$=RIGHTS( 
A$,LEN(A$)-1) : A$=C$+D$: B$=LEFTS (A$, 

34) :LOCATE #4,2,2:PRINT#4,B$: WEND 

2120 FAC=FAC+1#(FAC=1) >TF< 
2130 SOUND 135,9: R=REMAIN (0) :60TO 4 >MG< 
9 

2159 ON SQ(2) GOSUB 2206:0N SQ(1) G >YJ< 
OSUB 2306:0N SQ(4) GOSUB 2496:RETUR 
N 

2208 C(2)=C(2)+3:IF C(2)>36 THEN C( 
2)=i 

2219 SOUND 2, VAL (MIDS (N$ (2) ,C(2),3) 
), VAL (MIDS$ (D$ (2),C(2),3)),19,1:RETU 
RN 

2309 C(1)=C(1)+3:IF C(1)>24 THEN C( } 
1)=i 

2319 SOUND 1,VAL(MID#(N$(1),C(1),3) >DG< 
}, VAL (MIDS$ (D$ (13,0 (1),3)),4:RETURN 
2406 C(4)=C(4)+3:IF C(4)24 THEN C{ à 
4)=1 

2416 SOUND 4, VAL (MIDS (NS (4) ,C(4),3) 5 
), VAL (MID$ (D$ (4) ,C(4),3)),4:RETURN 
2993 ‘ 

2994 ‘AH 
2995 ‘+ # 

2996 ‘* 6GAGNE 4 
2997 ‘#4 + 

2908 ‘HIT 
2999 ‘ 

3006 SOUND 135,9:R=REMAIN (0) :FAC=2: : 
IF KAG)XC OR YAGYC THEN PAPER 0:PE 
N 3:FOR L=6 TO 1:LOCATE KA, YA+L:PRI 
NT CHR$(139+L+#2) CHR$ (149+L#2) : NEXT 
3003 IF XAS>XP OR YA£>YP THEN FAPER TG 
O:PEN 1:FOR L=0 TO 1:LOCATE XP, YP+ 
LiPRINT CHR$(131+L#2)CHR$(132+L#2) : 

NEXT 

3005 PAPER#2, 2: PEN#2,3:CLS#2:LOCATE >CJ< 
#2,2,2:PRINT#2, "VOTRE SCORE": SCORE ( 
19)=INT ((CH#VI#10006) /ND) : SCORES$ (19 
)=MID$ (STR$ (SCORE (10) ),2) :LOCATE#2, 
7-LEN(SCORES (10) ) \2, 4: PRINT#2, SCORE 
$(19) 

3010 RANDOMIZE TIME:FOR F=1 TO 224 
STEP 4: INK 2, INT (RND (1) #22) +4: SOUND 
2,225-F,24,7:SOUND 1,227-F,20,7:50 
UND 4,229-F,20,7 

3920 ORIGIN 16,16:DRAW 206,F, INT (RN ?UF< 
D(1)#4)+1:0ORIGIN 222,16: DRAW -206,F 

, INT(RND(1)#4)+1: ORIGIN 222,238: DRA 

W -206,-F, INT (RND(1)#4)+1: ORIGIN 1é 
238: DRAW 206,-F, INT (RND (1) #4) +1:NE 

XT: INK 2,12 


se 


REX 


>HF< 


>FE 


22 


3030 PLOT 0,0,1:PAPER #3, 1:PEN #3,2 >LG< 
2A$=" BRAVO":FOR F=3 TO 11 STEP 2:L 
OCATE#S,F,F:PRINTHS, MIDS (A$,F\2#1, 1 
}:NEXT 

3040 >DH£ 
3050 N$(2)="11910609508009508009508 >AJ< 
007508009507 108007 1080097508 70630b00 
5306006307 106306006308908007 10801 27 
119106119127119095080060000" 

3060 D$ (2)="0300300300900 1506001507 
00300450150600300300 30030 1800300300 
300600300300300 300700300300 30080030 
010010010915015015015030060" 

3070 N$(1)="19017915923909509531909 
51192390950953190951 192250950952251 
90113179142119127142150127119106239 
095127142127119319080080 1791591422 
3106179239319379478000000" 

3080 NS(41="23925331923911911931911 
91592391191193191191592251131132842 
25159213179142159179190199142127239 
11915917915914231910610621319017931 
9127213239319379478000000" 

3085 
3090 C(21=-2:C(1=C(2):C (4) =C (2): 50 
UND 135,0:F=FRE(""):EVERY 10 GOSUB 
30008: IF SCORE (10) {SCORE (9) THEN 50 
00 ELSE CLS#2:LOCATE#Z, 2, 2:PRINTH2, 
“VOTRE NOM ?":FOR F=0 TO 10:N0$(F)= 
*U:NEXT:NOMS (10)=" ":X=0 

3094 ‘ 


2WK< 


?LL< 


>PM< 


SNTE 
>DN< 


3096 
3100 LOCATE#2, 1,4:PRINTH2," 
….."aLOCATE#2, 1, 4: PRINTH2, NOMS (10) : 
WHILE INKEYS<2"":HEND 

3110 R$=UPPERS(INKEYS):IF R$="" THE > 
N 3119 ELSE IF R$=CHR$(13) THEN 315 
ù 

3120 IF R$=CHR$(127) THEN NOS(X)="" 
1X=X#1#(X20) :G0T0 3140 

3136 IF X=10 THEN 3110 ELSE X=X+1:N >PH 
0$(X)=R$ 

3140 FOR F=1 TO X-1#(X=0) :N0MS (10)= >NJE 
LEFTS (NOMS (10) ,F)#N0$ (F) :NEXT: GOTO 

3100 

3150 SPEED KEY 8,2:N0M$(10)=MIDS (NO >JK£ 
M$(10),2): IF NOM$(10)="" THEN NOMS ( 
19)="# INCONNU #" 


3200 ‘ GF< 
3300 ‘ CLASSEMENT DES SCORES RG 
ET DES NOMS 
SAP >DH 
3500 #KJ< 


3600 FOR F=10 TO 2 STEP -1:FOR T=1 AK 
T0 F-i 

3700 IF SCORE (T) <SCORE(F) THEN SCDR } 
E=SCORE (T} :NOM$=NOM$ (T } : SCORE (T) =SC 
ORE (F) : NOM$ (T) =NOMS$ (F) : SCORE (F }=SC0 
RE: NOM$ (F} =NOM$ 


3800 NEXT T,F >HM< 

3909 ?PN< 

4989 ‘MISE EN FORME DES ?ŸE 
CHAINES/SCDRES 

QD >BF< 

4209 ?HGK 

5000 FOR F=1 TO 9 +AF< 


9160 SCORES$(F)=MIDS$ (STR$ (SCORE (F)), >PG< 
2) 
9200 CH$(F)=NOMS (F)+STRINGS (20-LEN( 
NOM$ (F3 )}-LEN(SCORES (F) ),",")+SCORES$ 
(F) 
9390 NEXT 
5400 ‘ 
5500 ‘HN 
0600 ‘+ * 
9706 ‘+ AFFICHAGE DES SCORES  +# 
5890 ‘+ MODE © + 
5900 ‘HAN 
5930 ‘ 
9960 ‘ 
6606 MODE 0:BORDER 0:FOR 1=ÿ TO 15: 
INK I,G:NEXT:PAPER O:PEN 4:FOR L=ÿ 
TO 1:LOCATE 2,1+L:PRINT CHR$(135+#Lx 
2)CHR$ (136+L#2) :NEXT:PEN 2:FOR L=ÿ 
TO 1:LOCATE 17,1+L:PRINT CHR$(1274+L 
#2)CHR$ (128+L#2) :NEXT:FEN 1:LOCATE 
9,1:PRINT'SCORE S" 
6919 LOCATE 5, 2: PRINT "---------—- us 
Le .. TAPEZ CESPACE] FOUR REJOUE 
"FOR F=1 TO 9:LOCATE 1,3+F#2 
ee F+5:PRINT CH$(F):NEXT: INK 1,12 
INK 2,14: INK 3,26: INK 4,16:F0R F=1 
TO 9:INK F+5,F4+5,F+4:NEXT: SPEED IN 
K 2,2:WHILE INKEV$<)"": END: F=FRE (" 
1) 
6029 WHILE INKEY$<>" "FOR F=i TO 9 >FJ< 
:D$=LEFTS (A$, 1): C$=RIGHTS (AS, LEN(AS$ 
)-1):A$=C$+D$: B$=LEFT$(A$, 20) : PEN 3 
:LOCATE 1,24: PRINT B$:INK F+5,INT(R 
ND(1)#25)+1, INT (RND(1)#25)+1:PEN F+ 
JtLOCATE 1,3+F#2:PRINT CH$(F):NEXT: 
WEND:R=REMAIN (9) : SOUND 135,6:G0T0 4 
() 
299099 ‘> 
36069 ON SQ(2) GOSUB 32009:0N SQ(1) 
GOSUB 33096:0N 5Q(4) GOSUB 34069:R 
ETURN 
32006 C(2)=C(2)+3:1F C(2)>120 THEN 
C(2)=1:R=REMAIN(O) :EVERY 19 GOSUB 3 
0000 
32196 SOUND 3, VAL (MID$ (N$ (23,0 (2),3 MG 
)}, VAL (MID$ (D$ (2),C(2),3)),5:RETURN 


EH< 


>PJé 
3LK< 
>QL< 
>EM< 
>INK 
>CP< 
Va 
?VU< 
2 VX 
?Q6< 


>UH 


>< 
ED 


?LF< 


3000 C(1)=C(1)+3:IF C(113193 THEN DUG< 
C()=1 

33100 SOUND 1, VAL(MIDS(NS(1),C(1),3 WH£ 
11,30, 4:RETURN 

34000 C(4)=C(4)+3:1F C(4)>153 THEN 
C(4}=1 


7HH& 


34100 SOUND 4, VAL (MIDS$ (N$(4),C(4),3 >GJ< 
)},30,4:RETURN 

39998 ‘ >XU< 
59999 ‘- definir les INK MODE 1 -—— >TV 
60000 INK 0,13:INK 1,0: INK 2,12: INK ?EG< 


3, 3:RETURN 
40098 ‘ >DA 
69099 ‘--- toutes les INK = 9 -——- VB 


60100 FOR F=6 TO 15:INK F,9:NEXT:RE RH 
TURN 

60199 ‘- effacer #4 et entourer - 
60200 CLS#4:0RIGIN 33,33: DRAW 6,48: 
DRAWR 576,0: DRAWR 0,-48:DRAWR -576, 
9: RETURN 

89298 ‘ 

60299 ‘---- remplir une case 
60300 PEN PE:PAPER PA:LOCATE X,Y:PR 
INT CHR$(CA)CHRS$ (CA+1):LOCATE X,Y+1 
PRINT CHR$ (CA+2) CHR$ (CA+3) : RETURN 
60398 

69399 ‘---- effacer une case 
694900 PEN 0:PAPER 2:FOR L=0 TO 1:L0 
CATE X,Y+L:PRINT CHR$ (207) CHR$ (207) 
:NEXT: RETURN 

60498 >HE< 
60499 ‘-rien a moins de 3 cases ?- BF 
60500 FLAG=0:FOR X=XT-t TO XT+t STE JM 
F 3:FOR Y=YT-t TO YT+t STEP 3:FLAG= 
FLAG-1#(X=XT1 AND Y=YTI):NEXT V,X:R 


?GC< 
>QJ< 


?FC< 
UD 
2TK£ 


>GD< 
?UE< 
>KL< 


#JF< 
?LGX 
?YN& 


60599 ‘--------- CHRONO ---------- 
6O66Q CH=CH+1#(CH>0) : MN=CH\ 46: SC=CH 
-MN460:1F-SC{19 THEN SC$="O"+RIGHTS 
(STR$(SC),1) ELSE SC$=RIGHTS (STR$ (S 
C),2) 

60610 IF MN<10 THEN MN$="0"+RIGHTS ( 
STR$(MN),1) ELSE MN$=RIGHTS$ (STR$ (MN 
),2) 

bÔ0b20 CHS=MNS+"""+SC$: LOCATE#1,9,9: 
PAFER #1,2:PEN#1, 1: PRINT#1,CHR$ (24) 
CHSCHRS (24) : PAPER#1,0:DRIGIN 126,25 
b:DRAW 0,16: DRAWR 86,6: SOUND 2,10,2 
32 RETURN 

66698 ‘ 

60699 ‘Vous etes dans la citadelle 

69700 CLS#3:LOCATERS, 1,4: PRINT#3, " 

VOUS ETES A"+GPACES(15)+"L'ABRI DAN 
S"+SPACES (19) +"LA"+SPACES (21)+"CITA 
DELLE"+CHR$ (7) : SOUND 5,0,306,1,,,31 
:FOR W=0 TD 2690:NEXT: RETURN 

60798 ‘ 

60799 ‘-MESSAGE TOUCHES FLECHEES- 

60806 CLS#3 

69810 LOCATE#S, 1,2: PRINT#S,FL$+SPAC 
E$(44)+"NOMBRE DE"+SPACES (18) +"COUP 
S A"+SPACES(18)+"JOUER :":CHR$(7):F 
=FRE ("") : RETURN 

60960 ‘ 

60070 AIN 


>NPé 


>UQ< 


:KG< 
>FH< 
>MP< 


LH 
#HJ< 
>Qc 
?FR< 


#BY< 
#KZX 


6980 ‘# LABYRINTHES # 
60990 ‘HIHI 
49995 

61000 READ NM:FOR F=1 TO NM:READ Z: 
MUR(Z)=1:NEXT: RETURN 

&1010 RESTORE 61915:G0T0 61000 
81915 DATA 49,11,21,31,41,51,61,71, 
22,42,62,33,53, 34,44,54, 64,25, 56, 27 
,47,67,18,28, 38,48, 58, 68, 112, 142,18 
2,113,123,153,173,183, 114, 144, 184,1 
15,125, 145, 155, 175, 185, 116, 146, 166, 
186, 187 

61020 RESTORE 61025: G0T0 61000 
61925 DATA 48,12, 22,72, 13, 23,33,63, 
73,14,24,34,44,54,64,74,15,25,39,55 
65,75, 16,26, 66, 76,17,77,131,141,15 
1,161,171,142,152, 162, 153, 145,155, 1 
36,146,156, 146, 127,137,147,157,167, 
177 

61030 RESTORE 61035: G0T0 61000 
61035 DATA 42,22,42,62,13,33,53,73, 
24,44,64,15,35,55, 75,26, 46, 66, 17,37 
197,77,121,141,161,132, 152,172, 123, 
143,163,134,154, 174,125, 145, 165, 136 
,156,176,127,147,167 

61040 RESTORE 61045: G0T0 61000 
81045 DATA 46,21,41,61,42,23,63,24, 
44,64,25,45,65, 26, bb, 47,28, 48, 68, 11 
1,141,151,181,122,132,162,172,113,1 
43,153,183,124,134,164,174,115, 145, 
155, 185, 126, 136, 166, 176, 117,147,157 
,187 

61050 RESTORE 41055: G0T0 61000 
61055 DATA 47,11,13,14,24,44,64,74, 
15,35, 55,75, 16,48,121,131,141,151,1 
61,171,122,132, 142,152, 162, 172,133, 
143,153, 163, 173, 135, 145, 155, 165, 175 
,126,136, 144,156, 16b, 178, 127,137, 14 
7,157, 167,177 

bid6D RESTORE 61065: G0T0 &140û 


&1065 DATA 44,12,22,32,42,52,62,72, > 


14,24,34,44,54,64,74, 16,26, 36, 46,56 
,66,76,18,38,58,121,141,161,132,152 
,172,123,143,163,134,154, 174,125, 14 
5, 165, 136, 156, 178, 127,147, 167,177 
&1070 RESTORE 61075:G0T0 41400 
61975 DATA 28,11,31,51,71,22,42,62, 
13,33,93, 73,24, 44,64, 15,35,55, 75, 24 
,46,6b,17,37,57,77,28,48, 68 

&10B6 RESTORE 41085: G0TO 61800 
61985 DATA 28,111,131,151,171,122,1 
42,162, 182,113,133,153,173, 124,144, 
164,184,115,135, 195, 175, 126, 146, 166 
,186,117,137,157, 177 

61090 RESTORE 41095: G0T0 61006 
61095 DATA 36, 12,72, 23,63, 14,44,74, 
15,45, 75, 26,66, 17,77,121,141,151, 17 
1,132, 162, 143,153,145,155, 136, 166, 1 
27,147,157,177 

41100 RESTORE 61105:G0T0 61900 


EAC 
ME 
KG 
3IH< 


2MJ< 
>HP< 


>PK< 
AU 


?RL< 
TR 


>UM 
>RT£ 


?WN£ 
3VUX 


AG 
>WWe 


?CRK 
2NX£ 


?ET< 
>TYé 


>MJ< 


61105 DATA 33, 12,32, 52,72, 14,34,54, 
74,26,36,56,6b,76,17,37,47,67,77,12 
2,142, 162,182, 114,134,154,174,135,1 
65,126, 156,127, 147,177 

biiié RESTORE 61115: G0T0 61000 
81115 DATA 35,12,32,42,62,33,53,44, 
15,35, 55,65, 75, 26,66, 17,37, 57,77, 15 
1,171,122,162,123,133,153, 173, 124,1 
44,174,135, 126, 146, 166, 137, 177 
61120 RESTORE 61125:60T0 61006 
61125 DATA 20, 22,62, 23,63,44,45,26, 
66,27,67,122,132, 162,172, 144,154, 12 
6,136, 166, 176 

&1130 RESTORE 61135:G0T0 61000 
61135 DATA 44,12,22, 42,52, 62, 23,33, 
63,73,34,44,45,55, 16, 26, 56, bb, 27, 37 
47,67,77,131,171,122, 132, 162, 172,1 
23,153,163,124,144,154,174,135,145, 
175, 124, 136, 166, 176, 127, 167 

61149 RESTORE 61145:60T0 61000 
61145 DATA 40,12,22,62,72,13,33,53, 
73,14,44,74,15,25,35,45,55, 65,75, 16 
,26,36,46,56, bb, 76,17,27,37,47,57,6 
7,77,121,171,132,162,143,153, 134,16 
4, 

61150 RESTORE 61155:G0T0 61000 
61155 DATA 48,11,21,31,41,51,61,12, 
22,32,52,72,13,23,33,43,63, 73, 14,24 
.34,44,54,64,74,15,25,35,45,55,65,7 
5,16,26,46,56, 66,76, 17,37,47,57,67, 
77,28, 38, 48,58, 68 

b1160 RESTORE 61165: G0T0 61000 
81165 DATA 48,12,13,43,53,73, 14,54, 
44,74,15,65,75,16,6b,76,77,111,121, 
131,141,151,161,171,122, 132, 142, 152 
,162,123,124,134, 144,125, 135, 145,15 
5, 136, 146, 156, 166, 176,127,137,147,1 
57,167, 177,187 

61170 RESTORE 61175:G0T0 61000 
61175 DATA 41,12,13,63,73, 14,15, 16, 
bb,76,17,121,13i, 141,181, 181,132, 14 
2,192,162,133,143,153,163, 124,134, 1 
44,154, 164, 135, 145, 195, 165, 134, 146, 
156, 166,127,137, 147,157, 167 

41180 RESTORE 61185: G0T0 41060 
61185 DATA 29,12,52,43,34,74,15,65, 
40,37,77,141,132, 172,123, 163,154, 13 
5, 126, 166, 157 

61190 RESTORE 61195: G0T0 61060 
61195 DATA 34, 12,32, 52,62, 13,53,63, 
24,44,74,45,26,6b,17,47,77,131, 141, 
122,152, 172,124, 134,154, 174, 184, 125 
135,165, 175, 146,156, 127,177 

41200 RESTORE 41205: G0T0 61900 
61265 DATA 48,11,31,51,71,22, 32,42, 
92, 62,33,43,53,44,45, 34, 46, 56, 27,37 
,47,57,67,18, 38,58, 78,112, 122,172, 1 
2, 123,133, 163,173, 124, 134, 144,154, 
164,174,125,135, 165, 175, 116, 12b, 176 
,186, 
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?LP< 


3PK€ 
>AQC 


RL 
?BR< 


UM 


2XT< 


>HNé 
>CW 


»WPé 
AU 


AG 
>FW< 


?CR< 
BK 


?ET< 


2FY€ 


>GU< 
A TA 


>PK£ 
TR 


UTILITAIRE 


MACHINE À ECRIRE Œ 


Robert DUHAUBOIS 


Ce programme permet de piloter une imprimante et de transformer cette dernière en machine à écrire. 

Son maniement est très simple : au démarrage, chaque lettre frappée est reproduite à la fois sur l'écran et sur l'imprimante. 
Pour changer les paramètres d'impression (double-frappe, italique, souligné.….), il faut appuyer sur <TAB> puis choisir un chif- 
fre entre 1 et 9 afin d'accéder aux options indiquées en permanence au bas de l'écran (pas de validation, le retour à la page 
active est automatique). 

Pour écrire en diagonale (montée ou descente), il faut appuyer sur <CTRL+TAB> simultanément puis taper ‘‘1'"" pour l'écriture 
descendante, 2” pour l'écriture montante ou <ESPACE > pour l'horizontale (toujours sans validation). La flèche en bas à droite 
indique le sens d'écriture. 

Ce programme a été testé sur DMP-2000. 

Le symbole ‘’—'’ s'obtient en tapant CTRL (CONTROL) + ‘|’. 


300 MOVER 15,20: DRAWR 375,6 FD 
316 MOVER -15,26:DRAUR -545,0 BE< 
320 MOVER 15,28: DRAMR 315,0 BF* 
336 ORIGIN 170,225 2NG< 


346 DRAWR 6,50:DRAUR 360,6: DRAUR 9, ?GH 
-596:PLOTR 0,96: DRAMR -5, 16: DRAWR -2 
99,0: DRAKR -5,-10 


350 REM HER »YJE 
36ÿ REM chariot :GK< 
370 REM HE AL 


386 FOR h=1 TO 22:0RIGIN 219,280  :MM: 
390 PLOTR -S#h+5, 14, 1:DRAWR -26,0:D FWN< 
RAR 0,30: DRAUR 399,0: DRAUR 36, 5@:D 
RAMR 5,0: DRAWR -56,-56 

496 DRAWR -5,9:DRAWR 4,-36:DRAUR -5 ?HE< 
98,9 

419 PLOTR 5,3%:DRAWR 216,9,0:PLOT >DFé 
R -216,-30:DRAWR 6,75,4:DRAWR 290,6 
:DRAWR 9,-75 

420 DRAWR -200,6:PLOTR 260,6: DRAMR >DG< 
19,9,1:DRAWR 9,80 ,4:DRAWR -259,6:DR 





120 ENV 1,15,-1,4 *ED{  AMR 6,-10 
. E A 136 ENV 2,1.0.18,15,-1,6 NES 420 x=INT (RND49+6): = INT (RNDX3)+13 :EH{ 
Is Ina 144 ORIGIN 326,100 AF< 440 PRINT CHR$(22):CHR$ (1): XJ< 
150 DRAWR 290,0, 1 >06< 450 LOCATE x,v:PEN 6:PRINT CHR$ (160 >EK£ 
166 DRAWR 9,50 RH£ ) 
176 DRAWR -406.0 TJS 466 SOUND 1,1500,7,7,8,0,1 ;CLé 
19 REM AHHIIINENNNR 2HES 180 DRAMR 0,-5û >TK£ 470 LOCATE 19,7:PEN 14: PRINT CHR$(2 >JM< 
26 REM programme "ECRIRE" FAC 190 DRAWR 209,9 ;UL4 44) 
30 REM page ecran de 6D< 200 MOVER 200,50 >CC{ 480 ORIGIN 219,280:PLOTR-S#h,0,0  >VN£ 
40 REM la machine a ecrire FES 210 DRAWR -50,75 >BD< 490 IF h=22 THEN 580 ?EF< 
50 REM € r.duhaubois >EF{ 220 DRAMR -206,0 MES 560 PLOTR 5,10,0:DRAWR -20,0:DRAWR KF< 
60 REM AHHHHHHHHAAPHHBHBEBHE 2NG£ 236 DRAWR -50,-75 >CF£ 0,30: DRAWR 390,0: DRAUR 36,50: DRAWR 
70 CLG >VH£ 240 ORIGIN 126,150 E6€  5,0:DRAMR -30,-50 
8ù CLS >JJÉ 250 FOR i=1 TO 10 JXHE 514 DRAWR -5,0:DRAWR Ô,-30:DRANR -3 > YG4 
90 MODE KE£ 260 ORIGIN 126,150 >6J£ 90,0 
196 WINDOW #1,1,28,23,25 KBC 270 MOVER 46#i,0:DRAN 50+30#i,75  >YK£ 520 PLOTR 50,30:DRAMR 219,0, 6:PLOT >BH£ 
119 BORDER 12: INK 0,12:INK 1,0:INK >HC£ 280 NEXT >PL£ R -210,-30:DRAMR 9,75,0:DRAMR 200,0 
14,12,4 290 ORIGIN 120,150 KMS :DRAHR 6,-75 
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330 DRAWR -200,9:PLOTR 200,0: DRAWR >AJ< 
10,0,0:DRAWR 0,80,0:DRAWR -200,0:DR 

AWR 0,-10 

940 LOCATE x,y:PEN O:PRINT CHR$ (160 >YK< 
) 

990 LOCATE 10,7:PEN 14:PRINT CHR$(2 >BL< 
02) 


569 READ a$:PRINT#I, a$; > 
970 NEXT RANK 
580 SOUND 2,29,-1,15,1 >RP< 


990 DATA MACH,LNE,. A. ESC,R, 
LRE,.,PAR,  ROBERT,.,DUHAUBOIS 

HOÔ REM HIHI DYGE 
619 REM lancement du 2eme progranne >DH< 


PK 


620 REM sauvegarde sous le non: ?EJ* 
639 REM "MACHECR" 2FKK 
640 REM HIHI CLS 
650 RUN “MACHECR PM 
. . 
Listing 2 
100 REM HE TES 
119 REM *# - machine a ecrire - # DC 
# horizontale diagonale * 

120 REM # * >1D 
130 REM + r. DUHAUBDIS aout 1986 # :2E< 
140 REM HN ES 
156 MODE 2 LG 
160 INK 1,0 2NH€ 
170 INK 0,0 Né 
189 BORDER 15,16 2XK< 
198 ENV 2,1,6,10,15,-1,6 3VL£ 
200 ENV 1,12,-1,4 >AC{ 
210 PEN 1! 


KD< 

226 FOR I=1 TO BO:LOCATE I, 1: PRINT ME< 
CHR$ (127) :NEXT 

230 FOR I=i TO BG:LOCATE 1,19:PRINT >AF< 
CHR$ (127) :NEXT 

240 FOR 1=i TO 25:LOCATE 1, I: PRINT 
CHR$ (127) : :NEXT 

250 FOR I=1 TO 80:LOCATE 1,25: PRINT ?NH£ 
CHR$ (127) 3 :NEXT 

260 FOR 1=1 TO 25:LOCATE 0, I: PRINT ?PJ< 


?CG< 


CHR$ (127) : :NEXT 
270 CLEAR +6K< 
280 PEN 1! ?TLé 
290 SYMBOL AFTER 128 sAM< 
360 GOSUB 2550 31D< 
310 imp=B:cap=d:mem=1:1$=CHR$(24)  :BE< 
320 INK 0,13:INK 1,0 ?DF< 
330 REM HHHHHHOHEEHONNE  YGE 
340 REM ECRAN *EH£ 
350 REM YEN DATE 


360 WINDOW #1,2,79,20,21:PAPER #11 >TK< 
:CLS#1:PEN#1,9 


376 WINDOW#2, 3,68, 23, 23: SALX 
380 WINDOW#S, 3,65, 24, 24 KM 
370 MINDOW #5,72, 79, 23,24 >EN< 
40ù LOCATE #1,5,2:FRINTH, "colonne  >PE4 


CR | ligne : i <TAB: selection { 

CTRL+TAB> pente" 

410 WINDOW #1,2,79,21,21 ?iF< 

420 ORIGIN 580,33: DRAUR -4,6,1:DRAW >EG< 

R 25,-4:DRAWR 0,6: DRAWR 16,-8: DRAWR 
-10,-8:DRAWR 9,6: DRAWR -25,-4:DRAW 

R 4,6 


430 WINDOW 3,78,3,18 >RH< 
440 pente =35.8:b=1 A AN 
450 z=] >< 


46 WINDOW #4,1,80,1,1:LOCATE #4,18 >vLé 
LEPRINT #4, "MACHINE À 
ECRIRE  r.Duhaubois 61986 

478 ORIGIN 9,0:PLOT 6,381, 1:DRAMR 6 >2M< 
23, 0:DRAUR 0,-273:DRAMR -623, 6: DRAM 

R 9,273 

480 PLOTR 624,-3:DRAMR 0,-268:DRAWR ?NN< 
-622,0:DRAMR 6,-1:DRAMR 617,0: DRAN 

R 0,266:PLOTR 1,-3:DRAMR 0,-264:DRA 

NR -614,0:PLOTR 6,-1:DRAUR 608,0: DR 

AUR 0,264: DRAWR 1,-3:DRAUR 0,-261 


490 ORIGIN 9,6:PLOT 8,55:DRAUR 552, 
O:DRAWR 0,-41:DRAUR -552, 0, 0: DRAUR 

d,-1:DRAUR 552,0,0:DRAUR 9,-1, 1:DRA 
MR -552,0:DRAUR 0,-1:DRAUR 552, 0:DR 

AUR 0,-1,1:DRAUR -552,0, 1:DRAR 0,4 
5 

500 PLOTR 553,-3 :DRAWR 0,-43:DRAMR ?LF£ 
-550,0:PLOTR 3,-1:DRAUR 548, 0: DRAW 

R 0,43 

516 PLOTR -555,10:DRAUR 624,0 +164 

520 PLOTR 0,-2:DRAUR -624,0 :FPLOTR  >MH£ 
0,3: DRAUR 622,0:PLOTR -B, 1:DRAUR -6 

05,0,0 

530 DRAUR 0,25:DRAR 605, d:DRAUR 0, 
-25 

540 PLOTR 13,-8:DRAMR 0,-45, L:DRAWR >UK< 
-71,0:DRAUR 0,45: DRAUR 71,0 

590 PLOTR 1,-4:DRAWR @,-42:DRAUR -6 >XL4 

7,0:PLOTR 68,0: DRAUR à,41:DRAMR -1, 
1:DRAUR 0,-41:PLOTR -1,1:DRAUR 0,41 


?RF* 


KI 


560 PLOTR -2,9:DRAUR 0,-49:PLOTR -1 > 
,0,0:DRAUR 0,46 :PLOTR -1,0:DRAUR © 
,-40 

570 DRAUR -66,0, 1:PLOTR ,1:DRAUR & >PN4 
6,0: PLOTR 9,1,0:DRAMR -66,0:DRAMR 6 
9,0:DRAMR 9,41,1:PLOTR -1,0:DRAUR à 

43 

L | 

580 ORIGIN 6,383:FOR 1=0 TO 640 STE >UP< 
P 3:PLOT 1,0,1:NEXT 

590 ORIGIN 0,56:FOR 1=0 TO 640 STEP >FQ 
3:PLOT 1,0,1:NEXT 


600 REM HHEENNEEHEE 3VG< 


614 REM boucle curseur JUH< 
620 REM HHHHHHHOHEHHHHNE DA 
630 EVERY 20,1 GOSUB 4630 >UK< 


649 ORIGIN 1,1:DRAWR 9,398: DRAMR 13 UL< 

9,0:PLOTR 446,0: DRAWR 68,0: DRAMR 6, 
-398:DRANR -638,6 

659 CLS#2:PRINT#2, "Î standard 2 db ?WM< 
frappe 3 gras à qual courrier 5 gr 

as souligne “ 

é6è GOSUB 4576 

676 PRINT#3, "é italique 7 gras db 
frappe 8 gras db frappe soul 9 sou 
ligne" 

688 IF start=0 THEN start=i:GUSUB 

4450:60T0 886 

699 IF gras=i THEN x=memsxx=dixc=xc BR 

+y:gras=û: t=mem:GOTO 719 

766 IF soul=i THEN LOCATE t+1,2:FRI 3VH£ 

NT CHR$ (22); CHR$(G)5" ss LOCATE t+1 


716 IF soul=2 THEN LOCATE t+i,z:PRI JE 
NT CHR$(22);CHR$ (9); " "ss LOCATE t+ 


le 


120 xx=0: XC=XC+Y! gras=Û AL 
730 REM HOMO EL 
740 REM MODULE DE CHOIX GM< 


DES CARACTERES 

750 REM HFHHEEHHNNNENHONNNNE ENÉ 
760 soul=0:51=0: Db$=INÉEYS: IF b$="" 
THEN 760 
778 b=VAL(b#) :IF b£i OR b:9 THEN :Q0: 
Fbù 
789 CLS#2:PRINT#2, "i standard 2 db :4R< 
frappe 3 gras 4 qual courrier 5 gr 
as souligne 

796 PRINT#3, "à italique 7 gras db 
frappe 8 gras db frappe soul 9 sou 
ligne" 
899 ON b GOTO 885,846,920,G6b, 1066 :EJ< 
1040, 1984, 1699, 1130, 1146 
819 REM HEAR BK 
826 REM double frappe <esc "E"} BL 
839 REM HOPPER 
840 PRINT #imp,CHR$ (27); "E"::LOCATE :FN< 
#2,1,1:PRINT#2, "1 standard';1$;" 
2 db frappe";1$;" 3 gras 4 qual cou 
rrier 5 gras souligne " :G60T0 1146 
850 REM HIHI 
869 REM mode standard <esc "F"} 
870 REM 4H HN 
889 PRINT #imp,CHR$ (27) 5 "P®s: PRINT LT 
2," "si$;"1 standard':i$;" 2 db fra 
ppe 3 gras 4 qual courrier 5 gras 5 
ouligne “:G0T0 1146 
890 REM IH 
960 REM mode gras <esc "HW"+4n 
919 REM HIHI 
926 PRINT #imp,CHR$ (27): "W's;CHRS (1) 
s:PRINT#2, "Î standard 2 db frappe" 


PET 


2KU< 
2NK< 
?CL< 
2 IM< 
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11$:" 3 gras':1$;" 4 qual courrier 
à gras souligne ":mem=x: «=x 2: xx=1: 
gras=1:60T0 1149 
930 REM HEART 
940 REM qualite courrier £esc "{": 
950 REM HE 
960 PRINT #imp,CHR$ (27); "("3:FRINT# 
2, “1 standard 2 db frappes gras": i 
$;" 4 qual courrier";i$;" 5 gras 50 
uligne ":60T0 1140 
970 REM HHHIHEHEHNNNNNNEHHHNNEE 
980 REM mode gras <esc “Win 
et souligne <esc "-1"; 
990 REM HE 
1909 PRINT #imp,CHR$ (27) : "W":CHRS$ (1 
}sCHR$ (27); "-1" 5: PRINT#2, “1 standa 
rd 2 db frappe 3 gras 4 qual. courr 
ier"si$;" 5 gras souligne": 1$; :mem= 
xsx=x\2:xx=itgras=i:soul=2:60T0 114 
Ô 
1010 REMOTE 
1926 REM mode alterne = italique 
<esc "4"; 
16030 REM HER 
1940 PRINT #imp,CHR$ (27) ; "4"; : PRINT 
#3, " "si$5"6 italique "si$;" 7 gra 
s db frappe 8 gras db frappe soul 9 
souligne":G0TD 1149 
1090 REM HHHHNEHNENENNONNNRE 
1960 REM mode gras double frappe 
souligne esc “!" 
+chr$(48i+esc "-1"> 
1070 REMOTE 


?EN£ 
+JP< 
GG 
2RR< 


IT 
>CUK 


>LV< 
)MB< 


>AC< 
>YD< 


»CEX 
*AF< 


1980 PRINT #imp,CHR$ (27); "1"; CHR$ (4 JE< 


8)::PRINT#S, "6 italique":i$;" 7 gr 
as db frappe ":i$:" 8 gras db frapp 
e soul 9 souligne":mem=x: A=A 4: 4X=1 
:gras=1:G60TO 1140 


1990 PRINT #imp,CHR$ (27) ;" 1"; CHR (4 : 


8);CHR$(27);"-1" 3: PRINTHS, “6 itali 
que 7 gras db frappe ":i$:" 8 gras 
db frappe soul ":1$;"9 souligne":me 
a=xsx=x\2:soul=2:gras=1:G0TO 1146 
1100 REM HIHI 
1119 REM standard souligne 
<esc "-1"> 
1120 REM #46 


1139 PRINT #imp,CHR$(27)5"-1"3:PRIN 2 YF< 


T#3, "6 italique 7 gras db frappe 
8 gras db frappe soul ";1$;"9 souli 
gne"s;i$:soul={ 

1149 BORDER 13:y=0 

1150 IF INKEY(76)=ù THEN GOSUB 434 
0 ; 

1160 REM HER 
1170 REM SAISIE DE LA FRAPPE 

1189 REM HE 
1190 El:a$=INKEYS 


2MG< 
AH 


3GJ< 
2NE< 
?JL< 
>WM< 


12006 IF INKEY(68)=128 THEN GOTO 459 >QD< 
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Ô 

1216 IF scroll=2 THEN 22=2-1 ELSE I 
F scroll=i THEN 2z=2+1 ELSE 
1226 IF 22=0 THEN zz=1 

1236 IF soul=i AND 51=6 THEN PRINT 
CHR$ (22) : CHR$ (1): :LOCATE t+1,22:FRI 
NT “_“sssl=iiLOCATE t+i,z:G0T0 1250 


Z2=2 
Lee 


1249 IF soul=2 AND s1=à THEN PRINT 

CHR$ (22) : CHR$ (1) : :LOCATE t+i,22:PRI 
NT "__"sssl=1:LOCATE t+1,2:G0T0 1235 
Ô 

1259 IF a$="" THEN 1150 

1269 DI 

1276 IF soul=i AND s1=i THEN PRINT 

CHR$ (22) : CHR$ (1) 3 :LOCATE E+1,22:PRI 
NT "_"s:LOCATE t+i,z 

1280 IF soul=2 AND s1=1 THEN PRINT 

CHR$ (22) ; CHR$ (1) ; :LOCATE t+1,22:PRI 
NT "ss LOCATE t+1,z 

1290 IF a$=CHA$(13) THEN 156ÿ 

1300 IF a$="" THEN 1655 

1316 REM y=v+xx 

1320 x=x+1 

1336 xc=xc+i 

1346 IF x268 OR t:68 THEN 1646 

1556 IF x:77 OR t:75 THEN 1520 


?GEX 


>DF< 
>PG< 


>VHc 


>UJ< 
PA 
>UL< 


> IM< 


>EN< 
>EEX 
GX 


2EJ* 


1366 IF scroli=i THEN z=2+1 ELSE IF :KL< 


scroll=2 THEN 2=2-i 


1370 IF 2=6 THEN 2={:LOCATE 1,1:FRI : 


NT CHh$(il) 


1386 IF 2215 THEN LOCATE 1,17:FRINT + 


CHR$ (13) ::2=15: SOUND 2,20,-1,15,1 
1390 IF a$=CHR$(32) THEN SOUND 
.71,15,1 
1406 REM HHHHHEEEEHNO 
1419 REM envoi des codes impression 


1420 REM #44 


1436 PRINT #imp,CHR$ (27): "1"; CHR&(x à 


}; 


5 7E NE 
és dd À 


1449 PRINT #imp,CHR$ (27); "j"3CHR$(p XVEX 


ente); 
1458 PRINT #imp,a$ 
1468 DI 


147ÿ IF gras=i THEN GOSUB 1686:LOCA > 


TE mem+i,z:FRINT a$: :mem=mem+2:G60TO 
1496 
1489 LOCATE t+i,z:FRINT a$: 


i49o ÏF gras =1 THEN t=mem ELSE t=x : 


1566 LOCATE #1,14,1:PRINT#1, t+i:LOC 


ATE #1,27,1:PRINT #i,z 

1519 El: GOTO 1199 

1526 x=1:xc=1:Y=0: 2=2+1:MEM=0: t=0:P 
RINT #8, CHR$(13) 

153% SOUND 2,26,-1,15,1 

1549 PRINT 

155% GOTO 1360 


»VH< 
EX 


PK 
>BLX 
>FK 


1560 x=ÿ:xc=i:Y=0:2=2+1: T=0:MEM=0:F EN< 
RINT #8, CHR$(15) 


1579 SOUND 2,20,-1,15,1 >UP< 
1580 PRINT ?FEK 
1599 LOCATE #i,14,1:PRINT#I,t+1:L0C ?ER< 
ATE #1,27,1:PRINT #1,z: GOTO 1196 
1689 SOUND 1,150-x +CH< 
1619 GOTO 1350 +BJ< 
1620 REM HHHHHEHHEMAPHNPHNNNE HE 
1836 REM initialisation imprimante DL 
avant changement de frappe 
1640 REM #4 EME 
1650 PRINT #imp,CHR$ (27): "@": FTN< 
166û BORDER 13,1 ?TPÉ 
1679 GOTO 656 HU 


1680 IF ASC(A$)=32 THEN A$=" 
URN 

1696 IF ASC(A$)=13 THEN X=ÿ:T=Q2ME BT< 
M=0: : RETURN 

1700 REM #4 GIE 


"sRET CR 


1719 REM SAISIE DES CARACTERES  >BEX 
ELARGIS 
1720 REM HOMME JL 


1730 IF AGC(a$i:64 AND ASC (a$)€91 GYM 
OTO 178ù 

1749 IF AGC(a$);47 AND ASC (a$)<958 T ;JN£ 
HEN GOTO 1790 


1750 IF AGC(a$):96 AND ASC(a$}<123 AP 
THEN GOTO 1864 

1769 a$=a$+", ": RETURN ?Q6< 
1770 RETURN 


1780 ON ASC (a$)-64 GOTO 1840, 1856, 1 ; 
869, 1870, 1880, 1890, 1900, 1910, 1926, 1 
26,1940, 1990, 1960, 1970, 1980, 1990, 2 
000, 2010, 2020, 2030, 2045, 2050, 2040, 2 
070, 2080, 2096 


1790 ON ASC(a$)-47 GOTO 2130,2140,2 >MUX 
156, 2160, 2170, 2180, 2190, 2200, 2210, 2 

220 

1809 ON ASC ia$)-96 GOTO 226ÿ,2270,2 >LKX 
280, 2290, 2300, 2310, 2320, 2330, 2340, 2 

350, 2360, 2370, 2380, 2390, 2400, 2410, 2 

420, 2430, 2440, 2456, 2460, 2470, 2480, 2 

490, 2500, 2510 

1814 REM HER x JL< 
1826 REM MAJUSCULES >IM 
1830 REM HIHI LINE 
1840 a$=a1$: RETURN >XF< 
1850 a$=b1$: RETURN > 
1860 a$=c1$: RETURN >BR 
1870 a$=d1$: RETURN DT 
1880 a$=e1$: RETURN FU 
1899 a$=f1$: RETURN Hé 
1906 a$=91$: RETURN AL 
1919 a$=h1$: RETURN >CM 
1920 a$=i1$: RETURN YEN 
1930 a$=j1$: RETURN >GP4 
1940 a$=k15: RETURN >JQ 
1950 a$=11$:RETURN >LR< 


1969 a$=mi$: RETURN 

1970 a$=n1$:RETURN 

1980 a$=01$:RETURN 

1990 a$=pi$:RETURN 

2000 a$=91$: RETURN 

2010 a$=r1$: RETURN 

2020 a$=51$:RETURN 

2059 a$=t1$:RETURN 

2046 a$=ui$: RETURN 

2059 a$=v1$: RETURN 

2060 a$=wi$:RETURN 

2079 a$=x1$: RETURN 

2680 a$=y1$: RETURN 

2090 a$=21$:RETURN 

2109 REM HIHI 

2119 REM CHIFFRES 

2120 REM HIHI 

2139 a$=zera$: RETURN 

2149 a$=un$: RETURN 

2150 a$=deux$: RETURN 

2166 a$=trois$:RETURN 

2170 a$=quat$: RETURN 

2186 a$=cing$: RETURN 

2199 a$=51x$: RETURN 

2206 a$=sept$: RETURN 

2219 a$=huit$: RETURN 

2220 a$=neuf$: RETURN 

2230 REM HAN 

2249 REM MINUSCULES 

2250 REM HER 

2266 a$=a2$: RETURN 

2276 a$=b2$:RETURN 

2286 a$=c2$:RETURN 

2290 a$=d2$:RETURN 

2500 a$=e2$: RETURN 

2319 a$=f2$:RETURN 

23520 a$=g2$: RETURN 

2330 a$=h2$:RETURN 

2340 a$=12$: RETURN 

2350 a$=j2$:RETURN 

2364 a$=k2$: RETURN 

2370 a$=12$: RETURN 

2386 a$=m2$:RETURN 

2396 a$=n2$:RETURN 

2496 a$=02$: RETURN 

2416 a$=p2$:RETURN 

2426 a$=q92$: RETURN 

2439 a$=r2$: RETURN 

2449 a$=52$: RETURN 

2459 a$=t2$: RETURN 

2460 a$=u2$: RETURN 

2479 a$=v2$: RETURN 

2489 a$=w2$: RETURN 

2499 a$=x2$: RETURN 

2500 a$=y2$: RETURN 

2519 a$=22$:RETURN 

2520 REM AH 

2530 REM REDEF INITION DES 
CARACTERES ELARGIS 


?QU< 
?TV& 


?CC< 
?ED< 


>JF< 
NH 
?QJ< 


?XM< 
CD 
#ŸE< 


EJ< 





2540 REM HP 
2550 SYMBOL 129,3,15,69, 69, 63, 60, E 
(] 

1 

2566 SYMBOL 130,192,240, 66,60, 252,6 

9,60,0 

2570 a1$=CHR$(129)+CHR$(130):REM Am :PQ+ 

ajus 

2586 SYMBOL 131,255, 66,69, 65, 65, 60, 

255,0 

2596 SYMBOL 132,246, 66,66, 240, 80,69 :TT£ 
.249,0 

2606 b1$=CHR$ (131)+CHR$ (13 

maj 

2616 SYMBOL 133,15,60,245,240,240,8 >LK< 

ÿ,19,0 

2620 SYMEOL 134,246,60,9,0,0,66,240 :KL< 
,% 

2636 ci$=CHR$ (133 

maj 

264% SYMEOL 135,295, 66,60, 00, 69,60, : 

295,0 

2650 SYMBOL 136,192, 240, 60,66, 60,24 ;JF< 

9,192,4 

2660 dif=CHR$(135)+CHR$(136):REM D :RQ< 

ma) 


?KM< 
#LN< 


?XP< 


)ER< 


2):REM B :XJ< 


)+CHR$ (134) :REM C  :GM£ 


2679 SYMBOL 137,252,12,192,192,192, :WR< 
12,252,0 

2686 ei$=CHR$(131)+CHR$(1S7::REM E  :TT< 
ma j 

2696 SYMBOL 138,252,12,192,192,192, ;EU< 
5,6,0 

2700 F1$=CHR$(151)+CHR$(1SB):REM F NES 
Ma) 


2710 is 139,15,60,246,240,246,2 :2L« 
4,63, 

2720 oi 140,245, 66,0,6,252, 60,2 AM 
92,0 

2739 gi$=CHR$(139)+CHR$ (14G I :REM G UN 
ma) 

2745 SYMBOL 141,66,60,60,63,60,69,8 :LP< 
9,0 

2750 SYMBOL 142,66,60, 60,252, 60,60, :Qü+ 


69,0 

2760 hi$=CHR$(141)+CHR$i142):REM H VR< 
maj 

2770 SYMBOL 143,63,3,3,3,3,3,65,0 TT: 
2789 SYMBOL 144,252,192,192,192,192 ;VU< 
192,252, 


2790 11$=CHR$(143)+CHR$ (144) :REM I EVE: 
maj 

2809 SYMBOL 145,0,6,0,6,249,246,63, :GL< 
C] 

2816 SYMBOL 146,253, 249,246,246,246 :LM< 
,246,192,9 

2820 j1$=CHR$(145)+CHR$ (146) :REM J 
(EU) 

=. . 147,292, 69, 0, 83, 65, bb, 
252, 

ue “Si 148,60, 60,246,192,249,6 :EQX 


#EN< 


>DF< 


0,60,0 

2850 k1$=CHR$ (147) +CHR$ (148) :REM K 
Ba) 

2866 SYMBOL 149,6,0,0,0,12,60,232,0 >MT< 


2PRK 


2870 11$=CHR$(135)+CHR$(149):REM L  RUK 

may 

2880 SYMBOL 159,249, 252,295,255,243 >YWK 
,240, 249,0 | 

2896 SYMBOL 151,60,252,252,252,60,6 >GW< 

à,69,0 

2906 mi$=CHR$ (150)+CHR$(151):REM M  >BM< 

maj 

2919 SYMBOL 152,249,252,255,243,240 ;MN< 
, 249,24, 0 

2926 SYMBOL 153,60,60,60,252,252,88 > XP< 
64,0 

2939 ni$=CHR$(152)+CHR$(153):REM N  >LQ< 

mai 

2940 o1$=CHR$ (1335) +CHR$ (136): REM O >PR< 
maj 

2956 SYMBOL 154,249, 66,60,192,9,0,9 >AT< 
Ë 

296 pI$=CHR$(131)+CHR$ (154): REM P >RU< 
maj 

2976 SYMBOL 156,15, 60,240, 240,243,2 >KWK 
45,63, 

2980 SYMBOL 157,192, 240,60, 60,204,2 >MW< 
49,60, 0 

2996 qi$=CHh$(i56/+CHh$ (1372: REM à >HRÇ 
maj 

30600 SYMEOL 158,249,60,60,240,249,6 >JDK 
6,12,0 

3016 r1$=CHR$(131)+CHR$ (158): REM KR ÿLE< 
maj 

3920 SYMBOL 159,15,60,60,15,0,60,15 >AF< 
0 

3636 SYMEOL 165,246, 60,0,240, 60,68, 26 
249,0 

3040 s1$=CHR$(1597)+CHR$ (160): REM S >VH< 
maj 

3056 SYMEOL 161,68,51,3,3,3,3,19,9 ©>LJ< 
3060 SYMBOL 162,252,204,192,192,192 >BK< 
,.192,240,0 

2070 t1$=CHR$(161)+CHR$ (162): REM T >VL< 
maj 


3080 SYMEOL 163,65, 60,60, 68,60, 65, 1 KM 
5.4 

3090 SYMBOL 164, 66,60, 60, 60,66, 6,2 : 
49,0 

3106 ui$=CHR$ (163) +CHR$ (164): 
maj 

3110 SYMBOL 165,65, 60,60, 6,60, 15,0 ; 
19 

3120 SYMBOL 166,60,60, 6b,60,60,240, : 
192,0 

3130 vi$=CHR$(165)+CHR$ (166): REM V >EH< 
ma) 

3140 SYMBOL 167,249,240,240,243,295 }PJ< 


REM U >VEX 
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,252, 240,0 

3156 SYMBOL 168,60, 60,60, 60,292,252 :1K£ 
,60,0 

3160 wi$=CHR$(167)+CHR$ (168): REM W > 
maj 

3176 SYMBOL 169,245, 66,15, 15, 66,246 
,192,0 

3189 SYMEOL 170,66,249,192,192,246, 
6, 60,0 

3190 x1$=CHRS(169)+CHR$ (170): REM X à 
maj 

3206 SYMBOL 171,60,60,60,15,3,3,15, ?RF£ 
Ô 

3216 SYMBOL 172,60,66,66,246,192,19 >BG4 
2,246,60 

3220 yi$=CHR$(1712+CHR$ (172): REM Ÿ à 
ma) 

3230 SYMBOL 175,295,246,192,3,15,66 +FJ€ 
299,0 

3240 SYMBOL 174,252, 66, 240,192, 12,6 
0,252, 0 

3250 21$=CHR$(175)+CHR$ (174): REM Z à 
maj 

3260 SYMBOL 175,0,0,63,0,63,243,60, > 
() 


3276 SYMEOL 176,6,6,192,246,240,246 AN< 
69,0 
3280 a2$=CHR$ (175) +CHR$ (176) 2CP< 


3290 SYMEOL 177,252,252,63, 60, 60,60 : 
207,0 

3500 SYMEOL 178.6,0,240, 66,60, 80,24 :YG+ 
4,9 

3316 b2$=CHR$ (177) +CHR$ (178) 
3320 SYMBOL 179,6,9,15,68, 60, 6,15, à 
ÿ 

3330 SYMBOL 186,6,6,240, bÿ,0, 6ù, 244 
0 

3340 c2$=CHR$(179)+CHR#& (188) :REM c 
min 

3356 SYMBOL 181,3,9,15,66,60, 6,15, > 
ÿ 

3300 SYMBOL 182,246,244,246,246,246 : 
240,60, 6 

3370 d2$=CHR$(181)+CHR$ (182) 

3380 SYMBOL 183,0,4,15,66,83,64,15, : 

ô 

3590 SYMBOL 184,0,0,249,60,252,0,24 : 

2,9 

3409 e2$=CHR$(183)+CHR$ (184): REM e :GH< 
min 

3416 SYMBOL 185,3,15,15,63, 15, 19,43 
ÿ 

4 

3426 SYMEOL 186,249, 60,0,192,0,0,19 

2,0 

3436 f2$=CHR$ (185) +CHR$ (186) 

3440 SYMBOL 187,0,6, 15,69, 6ÿ, 15,6,6 
3 

3450 SYMBOL 188,0,0,252,66,66,232,6 :YN£ 
0,240 


2KEX 


?GL< 


PM 
>GK< 


?GL< 
?CMK 


28 


3460 g2$=CHRS (187) +CHR$ (188) >< 
3470 SYMBOL 189,252, 60, 60,63, 60,6, >LOX 
252,0 

3480 SYMBOL 190,0,0, 240, 40,6, 60, bû >ZR< 
Ô 

3 

3490 h2$=CHRS (189) 4CHR$ (190) }PT< 
3900 SYMBOL 191,3,0,15,3,3,3,15,0  >CJ< 
3510 SYMBOL 192,192,0,192,192, 192,1 >XK< 
92, 240,0 

3520 129=CHR$ (191) 4CHR$ (192) 

3530 SYMBOL 193,0,0,0,0,0, 60, 69, 15 

3540 SYMBOL 194, 12,0, 252, 40,60, 6û, 6 
0,240 


DL 
>DM< 
AN 


3590 j2$=CHR$ (193) +CHR$ (194) > MP< 
3566 SYMBOL 195,252, 60,65, 60,63,60, HU 
252,0 

3570 SYMBOL 196,6,6,66,240,192,240, :RR< 
60,0 

3589 k2$=CHR$ (195) +CHR$ (196) HAT 
3590 SYMBOL 197,15,3,3,3,5,3,15,9  ?XU 
3609 SYMBOL 198,192,192,192,192,192 :WK< 


.172,240,0 

3610 124=CHR$ (197) +CHR$ (198) 
3620 SYMBOL 199,0,0,60,255,243,245, } 
240,0 

3636 SYMBOL 200,0,06,240,252,60, 60,6 > 
9,0 

3646 m2$=CHR$ (199) +CHR$ (200) 
3656 SYMBOL 251,0,0,243,60,60,60,6ù : 
19 

3660 SYMBOL 262,0,6,192, 60,66, 60,66 : 
A] 

3670 n2$=CHR$ (291) +CHR$ (262) 
3686 o2$=CHR$ (179) +CHR$ (178) 
3696 SYMBOL 295,0,6,245,60, 60, 63,66 ; 
299 

3700 SYMBOL 204,0,6.240, 60,66, 60,24 > 
0,6 

3710 p2$=CHR$ (203) +CHR$ (254) 

37264 SYMBOL 205,0,0,63,240,240, 65,6 
63 

3736 SYMBOL 206,0,0,60,240,246,240, ;QP< 
249,252 

3746 q2$=CHR$ (205) +CHR$ (266) 

3750 SYMBOL 207,9,6,243,60, 66, 66,25 
5,0 

3760 SYMEOL 208,0,0,192,240,6,0,0,0 > 


3776 r2$=CHR$ (207) +CHR$ (208) 
3780 SYMEOL 209,6,0,15,69, 15,0, 65,0 : 
3796 SYMEOL 219,0,0,249,6,246, 60,24 RH: 
9,0 

3800 s2$=CHR$ (269) +CHR$ (210) 

3816 SYMEUL 211,15,19.63,15,15,15,3 
LS) 

3820 SYMBOL 212,0,0,246,0,0,60,240, 
() 

3830 t2$=CHR$ (211) +CHR$ (212) 


2FM 
+CN& 


>BP< 


#EQ< 


3840 SYMBOL 213,0,0, 60, 60, 60, 60,15, 
0 


3850 SYMBOL 214,0,0,60, 60,60, 60,252 : 


ù 

L 

3840 u2$=CHRS (213)+CHR$ (214) 

3870 SYMBOL 215,0, 0, 40, 60, 60, 15,3, 6 


3880 SYMEOL 216,0,0, 0,60, 60,249, 19 
2,0 

3890 v2$=CHR$ (215) +CHR$ (216) 

3900 SYMBOL 217,0,0,240,243,245, 255 
60,0 

3910 SYMBOL 218,0,6,69, 65, &à, 252, 24 
6,0 

3920 w2$=CHR$ (217) +CHR$ (218) 

3930 SYMEOL 219,0,9,240, 66, 15, 65, 24 
0,0 


3940 SYMBOL 226,0,6,6h,240,192,248, 


6,0 

3996 x2$=CHR$ (219) +CHR$ (226) 

3960 SYMBOL 221,6,9,60, 6ù. 60, 15,6,6 
3 


3970 SYMEOL 222,6,6,60, 60, 65, à, 66, : 


24 
3986 v2$=CHR$ (221) +CHR$ (222 


?TR< 


3990 SYMBOL 223,0,0,63,48,5,15,63,0 #HY< 


4000 SYMBOL 224,0,4,252,240,192,0,2 : 


52,0 

4010 z2$=CHR$ (223) +CHR$ (224) 

4020 SYMEOL 225,3,15,3,343,3,63.0 
4036 SYMBOL 226,192, 192, 192, 192, 192 
,192, 252,0 


4949 un$=CHR$ (225) +CHR$ (226) 


4050 SYMBOL 227,15.60,6,15,60,60,63 : 


() 


252,0 
4676 deux$=CHR$ (227) +CHR$ (228) 


408ù SYMEOL 229,15,48,4,3,6,48,15,0 > 


4090 SYMBOL 230, 246, 60, 66, 246, d6, à : 


24,0 

4106 trois$=CHR$(229)+CHR$ (258) 
4116 SYMEOL 231,3,15,51,195,295,5,1 
3,0 


4120 SYMBOL 232,192,192,192,192,240 > 


,192, 240,0 
4130 quat#=CHR$ (231) +CHR$ (232) 

4140 SYMBOL 233,63,60, 40,15, 0, 60, 15 
û . 

L 

4156 SYMBOL 234,252, 12, 0,240, 60, bû, 
249,0 

4160 cing$=CHRS (233) 4CHR$ (234) 

4170 SYMBOL 235, 15,60, 60,63, 6ÿ, 6, 1 
5,0 

4180 SYMBOL 236, 240, 60,0, 240, bô, bd, 
249,0 

4196 six$=CHR$ (235) +CHRS (236) 


L 
4066 SYMBOL 228,240, 60, 6ù,240.0,60, : 


FL< 


2PM< 
?PN& 


?LP£ 


#MQ< 


4200 SYMBOL 2 
4214 SYMBOL 23 
46,246,0 

4226 sept$=CHR$ (237) +CHR$ (238) 


237,63,48,9,1,6,0,9,6 
767 


292, 00,60,249,292,2 3 


ENJE 


4236 SYMEOL 229,15,660,60, 15,66. 60,1 :MK< 
3,6 

4240 SYMEOL 246,248, 60,66,245, 66,6% >LL: 
249,0 

4256 huit$=CHh$(239)+CHR$ (246) >JMe 
4260 SYMBUL 241,15. 66,60, 15,0,60,15 ZN< 
0 

4270 SYMEOL 242,246, 60,60, 292, 66,66 :VP< 
249,0 

4288 neut$=CHR$ (241}+CHR$ (2342) #UQ< 
4296 SYMBOL 243,65,246,2340,243,252, MR 
249, 63,0 

4300 SYMEOL 244,246, 66,252, 68, 6,66 :QH£ 
. 249,0 

316 zero$=CHR$ 243) +CHR$ (244) LJ< 
4326 RETURN #0E< 
4530 REM MH ILE 
4340 REM test capitales #LME 
4550 REM HIHI LINE 
4360 IF cap= THEN cap=i ELSE cap=à DPF“ 
4579 IF cap=i THEN LOCATE #1,69,1:F >00x 
RINT #1,'"MAJUSCULES" ELSE LOCATE #1 
69.1:FRINT#I, "minuscules" 

4380 FOR temp=i TO Séb: :NEXT FVR£ 





ST | 


Ce jeu, écrit entièrement en assembleur, est un remake de l'illustrissime PAC-MAN. On retrouve le labyrinthe bien connu et 
les pastilles à avaler. La différence réside dans le fait que votre adversaire est seul. Ce qui ne l'empêche nullement d'être très 
rapide ! 

Chargement du programme : 
Tapez et sauvez le listing, puis faites ‘’RUN’’. Lorsque le ‘’READY”’ apparaît, entrez l’ instruction suivante : 
SAVE'"GHOST'’, b, 30000, 4300 


À CHHHHHHHHE GHOST HHHHHHHNWHHEE 

19 A=30000:F=34300:L=100:WHILE A<=F:FOR 

A=A TO A+IS:READ C$:K=VAL ("&"+C$) : S=G4K+ 
65336#(5#K>32767):IF AC=F THEN PDKE A,K 

20 NEXT:READ D$:T=VAL("&"+D$): IF T£>S TH 
EN PRINT CHR$(7); "Erreur ligne“:;L:END EL 
SE L=L+5:WEND 

160 DATA C3,21,81,30,30,30, 30, 30,30,FF,3 
0,30,30,30,30, 30,044 

195 DATA FF,03,02,07,01,01,00,01,07,FE, 0 
1,03,03,02,01,01,06C2 

119 DATA 09,01,06,FF,01,01,01,09,00,02,0 
1,01,95,00,02,02,07D8 

115 DATA 09,64,00,00,01,02,00,01,01,08,0 


4596 RETURN 
4460 REM #46 EE 
4416 REM TEST IMPRIMANTE BRANCHEE : 
4420 REM #32 
4436 LOCATE 25,3:FRINT 11$:Mi$:Fi$; 
RS: 116: MIS: AIS: NS: Ti$:ElS;: 
4449 LOCATE 25,6:PRINT N2$: 024$: N2$: 
M MIBISSRISSAÎSINISE CIS HIS ESS El 
$; 
4456 PRINT #8:CL5:RETURN 
4460 REM #46 EEE 
4476 REM #40 
448% REM ANGLE D'ECRITURE, 
4496 REM #6 H0EPEEETE 
4509 CLS#2:CLS#3:CLS#5: scroll=é 
BORDER 3,2 

J24 IF GRAS=1 THEN X=MEM 


ë & PRINT #2:PFRINT #5, "ecriture en : 


le 
: 


montee ou descente 


AT 
>6J 





#JLé 
2YH£ 


4546 PRINT #3,"horizontal =*ESPACE: :NF 


= ,1 descente, 2 montee" 
4558 LOCATE #2,44,i: PRINT #5, "voit 
re choix ":A$=INKEVS$: IF A$="" THEN 
4550 
4566 IF a$=" " THEN pente=35,8 ELSE 
IF a$="1" THEN pente=ÿ ELSE IF 4$= 
"2" THEN pente=71.6 ELSE GOTO 4550 


4570 IF pente=35 


Pascal DELALANDE 


.8 THEN BORDER 6:60 


>Aû< 


#FR° 


PRT< 


TG 4666 ELSE IF pente:355.8 THEN :EÛ 


RDER 3:60T0 458% ELSE BORDER 5:G0T0 
459% 
458% ORIGIN Des rec el RIRE - UE 
8,6,1:DRAWR 29,2: DRAWR -3,7:DRAUR 1 
2,6: DRAWR -2,-12: DRAWR _6 2: DRE = 
15,-15:DRAUR 1,16:G0T0 786 
4594 ORIGIN 586,33:scrol1=1:DRAMR - :QV< 
b,-b,1:DRAWR 25,-2: DRAWR -3,-7: DRAW 
R 12,0:DRAUR -2,12:DRAWR -6,-2:DRAW 
R -15,15:DRAUR 1,-16:G07T0 78ù 
4668 ORIGIN 586,233: DRAWR -4,6:DRAWR KL 
25,-4:DRAWR 6,6: DRAWR 16,-8: DRAWR 
—10,-B:DRAUR 6,6: DRAUR -25,-4: DRAWR 
4,6 
4618 scroll=ô 2 THE 
4626 GOTO 786 EN 
463 DI #BP< 
4646 PRINT CHR$ (22); CHR$ (1): +FQé 
4654 IF 2516 THEN 21=16:G0T0 4676  :XR 
4660 IF 241 THEN zi=1 ELSE 2122 LTE 
4674 LOCATE t+1,21:FRINT CHR$(Z46): RUE 
déëdu FÜR ti=i TD Su: NEAT TUE 


4694 LOCATE t+1,21:PEN O:FRINT CHR$ :UW& 
(Z4b)::PEN 1 


4760 EI >AM< 
4714 PRINT CHR$ (22) :CHR$ (0): CNK 
472% RETURN >VP< 








0, 00,00, 00,06, 00, 0847 
120 DATA 02,01, 00,00, 00, 00, 00, dé, 00, 00, D 
0, 09,00, 09,00, 00, DBSA 
125 DATA 09,00, 09, 00,00, 09, 00, 00, D, 00, D 
0,00, 00, 00,00, 6, DBSG 
136 DATA 09,00, 00, 00, 00, 00, 0, 09, 00, 00, D 
à, 00, 00, 00, 00, 00, 2850 
135 DATA 04,00, 09,00, 09, 00, 00, 00, 0, 00, 9 
Ô,00, 00, 09, 06, 09, 9850 
149 DATA 04,00, 09,00, 00, 06, 09, 06, 00, 09, 0 
à, 00, 00, 06, 00, 00, 0BSQ 
145 DATA 09,00, 00,00, 06, 10, 80, 1,80, 10,8 
6,10,80, 00, 06, 00, DA99 
150 DATA 00,00, 06,00, 00, 00, 00, DO, 6, 00, 0 
0, 06,00, 06, 00, 09, A90 
195 DATA 09,00, 00,00, 00, 19,80, 10, 80, 19,8 
0, 10,80, 09,00, 09, CDO 
160 DATA 0,00, 00,00, 09,00, 00, 9, 00, AG, À 
0, A0, A0, 50,50, 56, 1046 
185 DATA 59, A, AD, A9, AD, 50, 50, 59, 5, A9, À 
à, AG, A0, 50, 50, 56, 17C0 
170 DATA 56, A0, A0, AG, AD, 58, 50,50, 5, A9, À 
Ô, A0, 20,50, 50, 50, 1F40 
175 DATA 56,40, A0, A, AD, 50, 50, 50, 50, A0, À 
0, A0, A0, 50,50, 50, 26C0 
180 DATA 50, Ab, A9, A0, 0,50, 50, 56, 50, A9, À 
0,50, 50, A0, AD, 50, 2E40 
185 DATA 54,40, 46,50, 50, A9, AD, 50, 50, A9, À 
0, 56,50, A0, AD, 56, 35C0 
196 DATA 56,0, A0,50, 50, AG, AD, 50, 50, 01,0 
8,03, 00, 07, GE, 2F, SA2C 
195 DATA 4F,0F,DF,0F, OF, 04, 05,04,05, 10,F 
F,77,FF,FF,FD, 06, 3F56 
200 DATA 73,00,73,FF,FD,77,FF,10,FF, 22, 4 
4,66, 6b, bb, bb, bb, 4721 
205 DATA 66,EE, 77,FF,FF 70 F3, FF, FF,FE, 
0,FF,EE,FE,FF,EA, 5427 
210 DATA 00, EA,00,FB,FF,FF,EE,FF, DO,FF,F 
F,FA,F3,FF,FF,EE, bÔCE 
215 DATA 77,66,66, bb, bb, b, bb, 22, 44, 00, D 
0,00, 00, 00, 00, 00, 640F 
220 DATA 00, 00,00, 00, 00, 00, 0, 09, Dà, 00, D 
0,00, 09,00, 00, 00, BASF 
225 DATA 00,00,00, 00,00, 00, 00, 00, D, 00, à 
à, 00, 00, 00, 00, 06, G4GF 
230 DATA 06,00, 00, 00,00, dû, 00,00, JE, 01, 0 
6, 01,0E, 01, CD, 32, 8563 
235 DATA BC, 3E,02, 06, 01,0E,01, CD, 32, BC, 3 
E,03,06, 01,0E, 01, 6887 
240 DATA CD,32,BC,C9,3E, 41,06, 18, 0€, 18, C 
D, 32, BC, ZE, 02, 0€, 6D97 
245 DATA 13,06, 13,CD, 32, BC, 3E, 03, 06, OD, à 
E, ÔD, CD, 32,BC,C9, 7271 
250 DATA 3E,04,32,C1,76,3E, 10, 32,03, 76,2 
1,00, C0, 3E, 14, 32,773A 
255 DATA B9,76,3E, 00, 32, BB, 76, 14,D5,FE, 0 
1,28,08, 11,89,75,7D73 
260 DATA CD, 49,77, 18,06, 11,F9,75, CD, Aÿ, 7 
7,34,89,76, 30, D1,854F 


30 


265 DATA 32,89, 76,FE, 09, 28, 07, 23, 23,23, 2 
3,13,18,D9,3E, 14,89BF 
270 DATA 32,89, 76, SA, BE, 76, 3D,FE, 00, 28, 0 
C,32,BB, 76,05, 11,9043 
275 DATA 54,06, 19,D1,13,18,C0, 26,03, 2€, 1 
9, CD, 75,EB, 21,86, 9580 
280 DATA 77,CD,BF, 7C, 21, 34,75, CD, EF, 7C, 2 
1,8D,77,CD, FF, 7C, 9E04 
285 DATA 21,33,75,C3,EF,7C,53,63,6F,72,6 
5, 3A,FF, 20, 20, 20, A46û 
290 DATA 76,69,65, 73, 3A, 33, 20, 20, 20, 68, 6 
9,67,68,74,3A,FF,AA3I 
295 DATA 34,03, 76,47,E5,C5,E5, 3, C1,76, 4 
7,14,77,23,13, 10,109 
300 DATA FA,E1,CD,26, EC, C1, 19,ED,E1,C9,4 
1,01,01,01,01,01,E801 
305 DATA 91,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,00,B810 
319 DATA 00,00, 00,00, 09,00, 09, 00, 00,00, à 
0, 00,00, 00, 00, 00, 810 
315 DATA 00,01,01,00,01,01,01,01,01,01,6 
1,00,00,01,01,01,B81C 
320 DATA 01,01,01,01, 06,01, 01,00, 01,00, 0 
0, 00,00, 00,00, 09, BE23 
325 DATA 00, 00,00, 00, 09, 06, 00, 01, 00,01, 0 
1,00,01,00,01,61,B829 
330 DATA 01,01,01,00,00,01,01,01,01,01,9 
0,01,00,01,01,00,B834 
335 DATA 00,00, 00, 00, 06,00, 09, 00, 00,00, à 
0,00, 00,01, 00,01, BB34 
340 DATA 00,01,01, 00,01, 00, 01,00, 00, 60, D 
0,00, 09, 00, 00, 00, BETA 
345 DATA 00, 00,00, 01,00, 01,01, 00, Di ,00, à 
1,91,01,01,01,00,BB43 
350 DATA 00,01,01,01,01,01,00,01,09,01,0 
1,00,01,00, 00,00, BB4C 
353 DATA 09, 06,00, 00, 00, 00, 0, 00, 0, 00, D 
0,01,00,01,01,00, BB4F 
360 DATA 61,01,01,01,01,01,01,00, 04,01, 0 
1,01,01,01,01,01,B85SD 
35 DATA 00,01,01,09, 04, 09, D, 60, 09,00, à 
0,00, 00,00, 00, 00, BBSF 
370 DATA 00, 09,00, 00,00, 01,01,01,01,01,0 
1,61,01,01,01,01,EB6A 
375 DATA 61,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,01,B87A 
380 DATA 01,01,01,01,01,01,91,01,01,01,9 
1,01,91,01,01,00, BBE9 
385 DATA 00, 00,00, 09, 00, 05, 00, 00, 00,00, D 
0,00, 00, 08, 00, 09, BEB9 
390 DATA 00,01,61,00,01, 00,01, 00, 01,60, 0 
0,01,01,00,00, 01,BE94 
395 DATA 00,01,00,01,00,01,01,09, 01,00, 0 
1,00,01,00, 06, 01, 8899 
400 DATA 01,00,00, 01,00, 01,00, 01,00, 01,0 
1,00, 00, 00, 00,00, BB9F 
495 DATA 00, 00,01,01,01, 01,00, 00, 00, 00, D 
0,00, 00,01, 01,00, BBAS 


. 418 DATA 01,00, 01,00, 01,00,00, 09, 00,0, à 


0,01,00, 01,00, 01, BBAB 
415 DATA 00,01,01,00,01,00, 01,00, 01,00, 0 
0,01,01,00,00,01,BEB3 
420 DATA 00,01,00,01,00,01, 01,00, 00,00, 0 
0, 00,00, 00,01, 01, BEB9 
425 DATA 91,01,00,00, 00,00, 09, 00, 00,01, 0 
1,00,01,00, 01,00, BBEF 
430 DATA 91,06,00, 00, 00,00, 09,01, 00,01, 0 
0,01,00,01,01,06, BECS 
435 DATA 01,00,01,00, 01,00, 00, 0, 00,00, 0 
0,01,00, 01,00, 01, BECB 
449 DATA 40, 01,01, 00,00, 00, 00, 00, D@, 00, D 
à, 00,00, 09,00, 00, BCD 
445 DATA 00, 00,00, 00,00,01,01,01,01,01,0 
1,01,01,01,01,01,E8D8 
450 DATA 01,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,01,BBEB 
455 DATA 91,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,00, BBF7 
469 DATA 00,00, 00, 0, 00, 00, 00, QD, 09, 00, à 
0,00, 00, 00, 00, 00, BBF7 
465 DATA 00, 01,01, 00,01,00, 00,01, 01,01, 0 
0,00,00, 00, 01,01, BBFF 
470 DATA 01,06,00, 01,00, 01,01,00, 01,00, 0 
0, 06,00, 01,00, 09, B90S 
475 DATA 60, 00,01,00, 00,00, 09,01, 00,01, 0 
1,00,01,01,01,01,E90D 
480 DATA 0,01,00,01,01,00, 01,00, 01,01, 0 
1,01,04,01,01,00, 8917 
485 DATA 00, 00,00, 00, 00, 00, 00, 00, D, 09, D 
0, 06,00, 00,00, 0, B917 
490 DATA 00,01,01,00,01,00, 09, 00, 09, 01,0 
1,90,06,01,01,00, E91E 
495 DATA 00,00,06,01, 09,01, 01,00, 01,01,0 
1,01,00,01,00,00,E926 
Sûû DATA 00, 00,01,00,01,01,01,01, 00,01, 0 
1,00, 01,00, 00, 00, B92E 
545 DATA 09,01,90,01, 01,00, 01, 0ù, 00,00, 9 
0,01,00,01,01,00, 8925 
519 DATA 91,06,00,01,01,01, 00, 00, 09, 00, D 
1,01,01,00, 00,01, E93D 
515 DATA 00,01,01, 00,00, 00, 00, 09, DO, 00, D 
d, 00,00, 00, 00, 00, B93F 
520 DATA 06,06, 00,00, 00,01,01,01,01,81,0 
1,01,01,01,01,01,B94A 
525 DATA 01,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,01,B95A 
530 DATA 91,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,00, 8969 
535 DATA 00,00, 00, 09, 00, 00, 09, 00, 06, 0, à 
d, 00,00, 00, 00, DO, 8969 
540 DATA 60,01,01,00,01,01,01,01,00,01, 0 
0,01,01,00, 01,00, B973 
545 DATA 01,01,01,01,00,01,01,00, 01,00, 0 
0, 00,00, 00,00, 00, B97A 
550 DATA 00,00, 00,00, 00,00, 09,01, 00,01, 0 
1,09,01,09, 01,01, E980 
555 DATA 91,01,01,01,01,01,01,01,01,61,0 
ë,01,00, 01,01, 06, 5980 


560 DATA 01,00,00, 00, 00,00, 00, 01, 01,00, 0 
0, 00,00, 00,00, 01,991 
565 DATA 00,01,01,00, 00, 00, 00, 00, 00, D, 9 
0,00, 00, 00, 00, DO, E993 
570 DATA 60, 00,00, 00,00, 01,01, 00, D1,00, 0 
1,01,91,01,01,01,H99C 
575 DATA 01,91,01,01,01,01,09,01,00,01,0 
1,09,01,00, 09, 09, E7A6 
580 DATA 00,00, 00, 00, 00,00, 0, DD, 00, 00, à 
0,01,00,01, 01,00, B9A9 
585 DATA 01,01,01,01,00, 01,00, 01,01, 00, 
1,00,01,01,01,01,B985 
590 DATA 00,01,01, 00,00, 00, 00, 00, 00, 00, D 
0,00, 00, 00, 00, 00, B9B7 
595 DATA 06,00, 00,00, 00,01, 01,01,01,01,0 
1,01,01,01,01,01,B9C2 
&ù DATA 01,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,01,B9D2 
&ë5 DATA 01,01,01,01,01,01,01,01,01,01,9 
1,01,01,01,01,00,B9E1 
619 DATA 09,00, 00, 09, 00, 00, 00, 00, OÙ, 00, D 
0, 00,00, 00, 00, 09, B9E1 
&15 DATA 00,01,01,00,01,01,91, 01,00, 00,0 
1,01,01,01,01,09, B9EC 
626 DATA 01,01,01,01,00,01,01, 00,00, 00, 0 
à, 00,00, 00, 09, 00, B9F2 
425 DATA 00,00, 00, 09, 00,00, 09, 06, 00, 01,0 
1,00,01,01,01,01,E9F8 
630 DATA 00,00,01,01,01,01,01,00,01,01,0 
1,01,00,01,01,00, BAGT 
635 DATA 09,00, 00, 00, 00,00, 09, 00, 00, 00, D 
0,00,00, 00, 00, 00, BAD3 
649 DATA 00,01,01,00,01,01,01,01,09, 00,0 
1,91,01,01,01,00, BADE 
645 DATA 01,01,01,01,00,01, 01,00, 00, 00, D 
0, 00,00, 00, 09, 00, BA14 
&5ù DATA 00,00, 00,00, 00,00, 09, 09, Où, 01, D 
1,00,01,91,01,01,BA1A 
855 DATA 01,01,01,01,01,01,01,01,01,01,0 
1,01,00,01,01,00, BA28 
bbô DATA 01,01,01,01,01,01,01,01,01,01,0 
1,01,01,01,01,01,BA8 
45 DATA 09,01,01, 00,00, 00, 00, DO, OÙ, 0D, D 
0, 00,00, 00, 00, 09, BATA 
&7à DATA 09,00,00, 00,00,01,01,01,01,01,0 
1,01,01,01,01,01,BA45 
675 DATA 01,01,01,01,01,01,01,01,01,01,2 
A, CD, 76,E5,D1, 29, BD9E 
6BO DATA 19,29,19,29,29, 19,23, 22, CD, 76,7 
C, C9, 3A,C3, 76,47, C2EB 
685 DATA ES,C5,E5, SA, C1, 76,4F, 06, 0, ED, B 
0,E1,CD, 26, BC, C1, CC2B 
490 DATA 19,EF,E1,C9, 2A,D3, 76, 23, 22,D3, 7 
6,21,3A,75, 11,04, D2BA 
695 DATA 00, 19,7E,3C,FE, SA, 28,03, 77,18,0 
b,3E, 30, 77,2B, 18, DÉAD 
709 DATA F1,26,09,2E, 19,CD,75,BE, 21, 3A, 7 
5, CD, EF, 7C, C9, 7E, DE3D 
745 DATA FE,FF,C8, CD, SA,BE, 23, 19,F6,CD, D 


B, BB, CD, DB, 76, 3A,EBBE 

719 DATA BC, 76,FE, 01,28, 19,FE, 62, 28,22,F 
E,03,28,2B,FE, 04, EECA 

715 DATA 28,34,11,06,02,ED,53, CB, 76,11,A 
A,78,C3,10,77,11,F44E 

720 DATA DA,01,ED,53,CB, 76, 11,BA,77,C3, 1 
0,77,11,F6,01,ED,FE2 

725 DATA 53,CB, 76, 11,98, 79,03, 10,77,11,D 
E,01,ED,53,CB, 76, 039€ 

730 DATA 11,8A,7A,C3,10,77,11,82,01,ED,5 
3,CB,76,11,7A,7B,0A4B 

735 DATA C3, 10,77,21,EA, 66, 22, CD, 76,CD,F 
4,76,3E,02, 32,01, 1102 

740 DATA 76,3E,08, 32,03, 76, 2A,C5, 76, 11,8 
9,76,CD, A9, 77, 2A, 187C 

745 DATA C7,76,11,59,76,CD, 40, 77,3E,FF, 3 
2,D2,76,C3,Fb, 7E, 2168 

750 DATA 3A, BA, 76,FE,01,CA, BA, 7D, CD, 24,8 
B,CB,47,F5,C4, 3B, 2A87 

755 DATA 7E,F1,CB,4F,F5,C4,42,7E,F1,CE,5 
7,F5,C4,34,7E, F1, 34FB 

760 DATA CB,5F,F5,C4,17,7E,F1, 3A,D2,78,F 
E,01,CB,FE, 00, CB, 3E70 

765 DATA 3A, BD, 76,FE, 01, 20,28, CD, 24, BB, C 
B,47,F5,C4, 38, 7E, 4654 

776 DATA F1,CB,4F,F5,C4,42,7E,F1,CB,57,F 
5,C4,34,7E,F1,CB, 5112 

775 DATA 5F,F5, C4, 17,7E,F1,3A,D2, 76,FE, D 
1,C8,FE, 09, CB, 2A, 59E9 

780 DATA EF,76,28,7C,B5,20,FE, C3, 48,70, 3 
E,00, CD, 1E,BB, C4, 6105 | 
785 DATA 3B,7E,3E,02, CD, 1E, BB, C4, 42,7E,3 
E,01,CD, 1E,BB, C4,6891 

790 DATA 17,7E,3E,08, CD, 1E, BE, C4, 34,7E,3 
A,D2, 76,FE, 69, CB, 6FDO 

795 DATA FE, 01,C8, 3A, ED, 76,FE, 09, CA,AF, 7 
D,3E,00, CD, 1E, BB, 77DC 

800 DATA C4, 3B,7E,3E,02, CD, LE, BB, C4, 42,7 
E,3E,01,CD, 1E, BB, 7EAB 

885 DATA C4,17,7E,3E,08, CD, LE, BB, C4, 34,7 
E, 3A,D2,76,FE, 06, BSE3 

810 DATA CB,FE,91,C8,C3,4F, 7D,11,02, 18,3 
E,03,32,C9, 76, 2A,BC6B 

815 DATA C5,76,19,7E,FE, 10,CA,49,7E,FE,5 
0, CB,FE, 2F,CA,CS, 9549 

820 DATA 7E,C3,90,7E,3E,01,11,FE, 17,18,E 
1,11,80,17,3E,02,9B3E 

825 DATA 18,DA, 11,50, 18, 3E,04, 18, D3,CD, 9 
4,70, 2A,CE, 76,2, A146 

830 DATA 7C,E5, 20, 06, 3E, 60, 32, D2, 76,C9, 2 
2,CB,76, 11,49, 76, A7B1 

835 DATA 24,05, 76,CD, A0, 77, 3,09, 76,FE, 4 
1,28,17,FE, 02, 28, AED9 

840 DATA 22,FE,03, 28, 2D, 11,50, 00, 01,99, 7 
b, 3A,D0, 76,30, 32, B3B0 

845 DATA Dô,76,18,2B,11,FE,FF,01,89,76,3 
A,CF, 76,30, 32, CF, BAE4 

850 DATA 76,18,1C,11,B0,FF,01,79,76,3A,D 
0,76,2D, 32,00, 76,C173 


855 DATA 18,00, 11,02,00,01,89, 76, SA,CF, 7 
6,30, 32, CF, 76, 2A, C467 
860 DATA C5, 76, 19,22,C5,76,C5,D1, CD, AD, 7 
7,09,21,55,75, CD, CEB3 
865 DATA AA, BC, C9, 3E,01, 32, D2, 76, CD,83,8 
5,09, 3E, 32, 32, BE, D699 
876 DATA 76,21,67,75,11,03, 06, 19, 77,21, 7 
0,75,19,Cb,96, 77, DEA2 
875 DATA 21,67,75, CD, A, BC, 21, 70,75, CD, A 
A, BC, SA, BE, 76, C6,E43F 
880 DATA 05,FE, 64, CB, 18, DB, 2A, C7, 76, 3A, D 
0,76,47,3A,D7,76,EC13 
885 DATA 90,20, 14,37,3F, 3A,CF, 76, 47, 3, D 
1,76,90,38,04,2E,F19E 
890 DATA 01,18,27,3E,03, 18, 23, A, CF, 76, 4 
7,3A,D1,76,90,C2,F6F3 
895 DATA E5,7F, 34,07, 76,47, 3A,D0, 76,90,3 
8,04,3E,04, 18, 0A,FCDS 
900 DATA 3E,02, 18, 06, CD, bA, 7C,Eb, 03, 30, 3 
2,09, 76, 2A,C7, 76, 02E3 
995 DATA 11,79,75,CD, 0,77, 3A,C9, 76,FE, à 
1,28,23,FE, 02, 28, 09B1 
919 DATA 31,FE,03,28,3F, 11,50, 09, 06, 00, à 
E,01,18,2D, 11,52, 0C78 
915 DATA 00, d6,01,0€,01, 18,34, 11,4E,00, 0 
6,FF,0E, 01, 18, 2B, 0E90 
920 DATA 11,FE,FF, 06,FF, GE, 00, 18,22, 11,4 
E,FF,06,FF,0E,FF, 15BB 
925 DATA 18,19,11,B0,FF,06, 00,0E,FF, 18, 1 
0,11,82,FF, 06,01, IABD 
930 DATA GE,FF, 18,07, 11,02, 00, db, 01, 0E, 0 
0, 2A,07,76,19,7E, 1E02 
935 DATA FE, AD, 28, 90,FE, 50, 28, BC, FE, 22, 2 
8, 0A,FE, 19, 28,06, 24EB 
940 DATA FE,FF, 28,02, 18, 06, 3,01, 32, D2, 7 
6,09, 3A,D1, 76, 80, 2BED 
945 DATA 32,01, 76, 34,07, 76,81, 32, D7, 76, 2 
2,07,76,11,79,75, 330€ 
950 DATA CD, 7C, 7C, 2A,C7, 76, 11,59, 76, CD, À 
0,77,21,5E, 75, CD, JABF 
955 DATA AA, EC, C3, 56, 7D, 24, C7, 76, 11,79, 7 
5, CD, A0, 77, ZA,CF, 4308 
960 DATA 76,47,3A,D1, 76,90, 38, 0€, ZA, D, 7 
6,47,3A,D7, 76,9, 49FA 
965 DATA DA, 37,80, C3, 7D, 86, 3, D9, 76,47,3 
A,D7,76, 90, DA, 14,5217 
970 DATA 80,C3, A, 80, 11,02,00,01,50,00,C 
D, A6,80,FE, 00, 28, S7AB 
975 DATA 0B, 3A,C4,76,FE, 0, C2, 34,7F,C3,5 
5, 7F,3A, C4, 76,FE, SFAb 
980 DATA 00, C2,94,7F,C3,5E, 7F, 11,FE,FF, à 
1,50,00, CD, A, 89, 6767 
985 DATA FE, 00, 28,08, 3A,C4, 76,FE, 00, C2,3 
4,7F,C3,55,7F, 3A,6E50 
990 DATA CA, 76,FE, 08, C2, 70, 7F,C3,67,7F, 1 
1,02,00,01,B0,FF,7SAS 
995 DATA CD, A9,80,FE, 00, 28, 0B, ZA, C4,76,F 
E, 06, C2, 34, 7F,C3, 7D6D 
1900 DATA 82,7F,3A,C4, 76,FE, 00, C2,94,7F, 
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C3,88,7F,11,FE,FF, 8696 
1905 DATA 61,50,FF, CD, A9,80,FE, 06, 28, CE, 
JA, C4, 76,FE, 06, C?, BE92 
1919 DATA 34,7F,C3, 82, 7F, ZA, C4, 76,FE, 00, 
C2, 70,7F,C3,79,7F, 76E7 
1915 DATA 2A,C7, 76,09, 7E, 32, C4, 76, 2A, C7, 
76,19, 7E, 32, CA, 76, 9081 
1920 DATA C9,3E, CO, CD, 08, EC, 3E, 01, CD, Œ, 
BC, 21, 00,00, 22, D3, A3FS 
1925 DATA 76, 22,05, 76, 3€, 01,21, 41,75, CD, 
BC, BC, 3E, 02, 21,48, A9DF 
1930 DATA 75,CD, BC, BC, 2€, 01, 32, BA, 76, C9, 
21,00, C6, 11, 4,00, 099 
1935 DATA 19,22,05,76,3E,00,32,CF, 74, 32, 
D, 76, 32,07, 76, 2€, B6F9 
1949 DATA 23,32,D1, 76,11, 46,60, 19,22, C7, 
76,06, 40, 21,79, 75, BBB9 
1945 DATA 36,00,23, 10,FE,C9,3E, 03, 32, C2, 
76,3, 03,32, BC, 76,136 
1950 DATA 21,04, 00, 22, D3, 76,06, 06, 21, 34, 
75,36, 34,23, 10,FB,C532 
1955 DATA C9,CD, Bi, 86, CD, d6,81,CD,BF, 85, 
CD, F4, 76,23€, 01,CD,CE9F 
1969 DATA 90, BB, 3€, 00, CD, 96, BB, CD,83, 85, 
CD,83,85,CD, 83,85, D7C5 
1965 DATA CD,F1,81,CD,DE, 76,CD,C9,7C, CD, 
F4, 76, CD, DA, 80, 3E,E2CD 
1976 DATA 45, CD, 1E, BB, CD, CD, 23, 70,24, C5, 
76,11,A9,76, CD, A0, EAA7 
1975 DATA 77,2A,C7,76, 11,79, 75, CD, A0, 77, 
3A,D2, 76,FE, 00, 28,F219 
1980 DATA 5F, CD, CC, 7E, 34, C2, 76, 3D, 32, C2, 
Tô,FE, 00, 28, 1A, 26,F905 
1985 DATA 17,2€, 19, CD, 75,EB, 3A, C2, 76, Cé, 
36, CD, 5A, BB, 2A, C5, 0699 
1090 DATA 76,11,49,7b,CD, 00,77, 18,83, 11, 
A9, 76, 2A,C5, 76, CD, 856 
1995 DATA 49,77, CD, 83,85, CD,83, 85, CD, CC, 
TE, CD, 83,85, 2A, D3, 11FA 
1109 DATA 76,37, 3F,ED,58, 5,76, ED, 52, DA, 
24,81, 2A,D3, 76, 22, 19CC 
1105 DATA D5,76,21,3A,75,11,33,75,01,06, 
06,ED, B0,C3, 24,81, 1FAC 
1119 DATA 3E,03,32,C2, 76,34, BC, 76,3C,FE, 
d6, 28, 09,32, BC, 76, 2598 
1115 DATA CD, C9, 7C,C3, 40,81,3E, 01,32, EC, 
76,CD,C9,7C, C3, 4C, 2DFE 
1129 DATA 81,3E,01,06, 18,0, 18, CD, 32, BC, 
CD, DB, BB, 26,01, 2€, 3375 
1125 DATA 61,CD,75,BB,21,E6,82, 06,22, 7E, 
CD, 54, BB, 23, 10,F9, SABO 
1130 DATA 26,01,2E, 02, CD, 75,BE, 21,09,83, 
CD, BF, 7C, 26, 01, 2€, 400€ 
1135 DATA 05, CD, 75, BB,21,19,83,CD,BF, 7C, 
26,01,2E, 07, CD, 75,4673 
1149 DATA BB, 21,32,83,CD,BF,7C, 26,01, 2, 
69,CD, 75,BB, 21, 4A, 4CD2 
1145 DATA 83, CD, BF, 7C, 3€, 29, CD, 1E,EB, 29, 
@E, 3€, 40, CD, 1E, BB, S3B3 
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1156 DATA 28,F2,3E,01,32, BD, 76, 18,05, 
66,32, BD, 76, 26,01, 5858 

1155 DATA 2€, 0D, CD, 75,BE, 21,64,83,CD,BF, 
7, 26, 01,2E,0F, CD, 5ED7 
1169 DATA 75,BB, 21,70, 
2€, 11,CD,75,BE, 21,653 
1165 DATA 90,83,CD, BF, 7C, 26,01, 
75,88, 21,98, 83, CD, 6D3F 

1176 DATA BF, 7C,3E, 40,CD, LE, BB, 29,18, 3€, 
41,CD, 1E, BB, 26, 19, 7234 

1175 DATA 3E, 26, CD, 1E,BB, 20,02, 1B,E9, 21, 
A6,0F, 22, EF, 76, 18, 789A 

1180 DATA 9E, 21,70, 17,22,BF, 74, 18,06, 21, 
40,1F,22,BF, 76,26, 7CC2 

1185 DATA 91,2€,17,CD,75,BE, 21, AD,83, CD, 
BF, 70, 3E, 22, CD, LE, B3A9 

1199 DATA BE, 20, 60, 3€, 2E, CD, 1E, BE, 28, F2, 
3E,01,32, BA, 76, C9, BA27 

1195 DATA 3E,00, 32, BA, 76,C9,47,48,4F,53, 
54,20, 72,65, 61,6C,BFES 

200 DATA 69,73,65,20,70,61,72, 20,50, 41, 
73,63,61,60, 20, 44,956! 

1205 DATA 45,4C,41,4C,41,4E,44,45,FF, 46, 
45,56, 52, 49, 45,52, 9409 

1216 DATA 20,31, 39,38, 36, 2€, 2E, 2E,FF, 2A, 
46,69, 76,65, 61,75, 9FBC 

1215 DATA 20,64,65, 20,64,69, 66, bb, 69, 63, 
75,60, 74,65,65, 26, A569 

1226 DATA 3F,FF, 20, 30, 20, 20,44,55,52, 20, 
6A,65, 20,73, 75,69, AAAB 

1225 DATA 73,20, 75,6E, 20,62, 6F, 6E, 2E,FF, 
2D,31,2D, 20, 46,41, AFDC 

1236 DATA 43,49,40,45,2C,6À, 65, 29,73, 75, 
69,73, 20,75, 6E, 20, E4FB 

1235 DATA 6b,61,69, 62, 6C,65,2E,2E,2E,FF, 
24,56, 69,74,65,73,BB1C 

1240 DATA 73,65, 2, 64,75, 20,68, 45,75, 26, 
3F,FF, 2D, 39, 2D, 20, C059 

1245 DATA 54, 72,65, 73,20, 72,61, 70, 69,64, 
65,2E, 2E, 2E, 2E,FF,C43 

1250 DATA 20,31, 2D, 24,42, 6F, 66, 2E, 2E, ZE 
FF, 20, 32, 2D, 20, 41,CA7B 

1255 DATA 73,73,65, 7A, 20, 6C,65,6E,74,2E, 
2E,2E,FF, 24, 44,6F,D67F 

1260 DATA 79,73,74,69,63, 6B,20, 3F, 20, 28, 


3,CD,EF,7C,26,01, 


2,13, CD, 


AF,2F, 4€, 29,FF, 26, D5D7 


1265 DATA 62, 2€,08, CD, 75,BE, CD, DB, BE, CD, 
D8,76,21,43,84,7E, DDF2 
1270 DATA Dé, 30,FE,00,CB,FE,09, 28,33,FE, 
01,28, 3D,FE, 02, 28, E4AC 
1275 DATA 3E,FE, 03, 28,40,FE,04,28,42,FE, 
05,28, 44,FE, 06, 28, EASA 
1286 DATA 46,FE, 07, 28,48,3E, 00, 06,00, E5, 
C5, CD, 90, BB, C1,78,F154 
1285 DATA CD, 96, BB, 3€, D6, CD, SA, BB,E1, 23, 
18,C3,E5, CD, 78, BB,FB2C 
1290 DATA 2C, 26,92, CD,75,BB,E1,23,18,E5, 
3E,01,47, 18, DA, 3E, 0104 
1295 DATA 62,06, 00, 18, D4,3E,00, 04,03, 18, 


CE, E, 03, 06,02, 18, 0286 
1309 DATA CB, 3E,02,046,03, 18, C2, 3E,02, dé, 
02,18, BC, 3€, 03, 06, 06D4 
1305 DATA 63, 18, Bb, 32, 36, 36,26, 36, 26, 34, 
38,22, 34,28, 28, 38, 0ASF 
1319 DATA 32,34, 38,32, 36, 36,26, 36,36, 34, 
38,22,%4, ie QDES 
1315 DATA 36,34, 38,32, 36,36, 34, 36,36, 34, 
39 RS Ho 31,10F7 
320 DATA 231,33,38,31,37,38,3 

a de 

1325 DATA 31,37,38,31,31,31,31,31,31,33, 
38,31,31,31,31,31,17SE 

1330 DATA 31,33,39,31,37,28,% 
38,31,37,28,8, 28, 1ACZ 

1335 DATA 31,37, 38,31, 37,38, 38, 38,31, 37, 
38,31,37,38, 38,38, 1E23 

1349 DATA 38,30, 38, 38,38, 31,27, 38,38, 38, 
39,31,37,32,36, 36, 218A 

1345 DATA 26, 34,38, 31,39, 36, 36, 36,31, 37, 
38,31,37,28, 38,38, 24E4 
1350 DATA 31,37,28,31,3 
38,38,38, 31,37, 38,283 
1355 DATA 38,38, 39,31,37,31,31,31,31,37, 
38,31,31,31,31,31,2877 
1360 DATA 31,37, 38,31,37,3 
38,31,31,31,31,31,2EBC 

1365 DATA 31,37,38,38,38,31,27,38,38, 38, 
39,31,37,31,233, 38, 3219 

1370 DATA 31,37,38,31,37, 38,38, 38,31, 37, 
38,31,37,28, 38,38, 3979 
1375 DATA 31,37, 38,38, 38,36, 28,3 
38,38, 28,31,37, 38, 38E1 
1380 DATA 38,38, 39,31,3 
38,31,37,39, 38,38, 3042 
1385 DATA 31,37,38,31,25,36, 36, 36,21, 37, 
38,32, 36,26, 36, 36, 3F94 

1390 DATA 31,37,38,38, 38,31, 37, 38,38, 38, 
39,31,31,31, 31,31, 42E2 
1395 DATA 31,33,38,31,33,38, 
38,31,31,31,31,31,461B 
1400 DATA 31,33,38,31,31, 
38,38,38,31,33,28, 4954 
1495 DATA 38,38,30,21,FF,FF, 28, 7C,ES, 20, 
FB,C9, 00,00, 09,00, 4F53 

1419 DATA 0ù, 00,00, 09, 09,00, 00, 0D,00, 00, 
00, 00, 00, 00, 00,00, 4F53 

1415 DATA 00, 00, 00, 00, 00, Dü, 0D, 00,00, D, 
06,00, 00, 00, 00,00, 4F53 

1420 DATA 4, 00,00, 00,00, 00,00, 00,00, 00, 
00,00, 00, 00, 00, 00, 4F53 

1425 DATA 09, 06, 00, 00,00, 00,00, 09,00, 06, 
00,00, 00,00, 00,00, 4F53 

1430 DATA 09, 00,00, 00,00, 00,00, 00,00, 00, 
06,00, 00, 00, 00,00, 4F53 

1435 DATA 60, 00,00, 00,00, 00,00, 00,00, 00, 
00,00, 00, 00, 00, 00, 4F53 

1440 DATA GD, 00,00, 00,00, 00,00, 00,00, 00, 
00,00, 00, 00, 00,00, 4F53 


,28,51,37, 


38,38, 38, 


36,36, 36,36, 34, 


,38,38,31,57, 
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.36,36,36,31,37, 
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MEMOIRE 


Henri CHAUVET 


Il est prouvé que les capacités mentales s'amenuisent avec l’âge. En revanche, la 
mémoire ne nécessiterait qu’un bon entraînement pour être à peu près performante. 
Ce logiciel se propose d'exercer vos talents sous forme de jeu. 

Le mode d'emploi est inclus dans le programme. 


Les 464 doivent supprimer toutes les instructions GRAPHICS PEN et FRAME 





19 CLS 

20 GOSUB 1349:° redefinition des 
caracteres 

30 GOSUB 1430:° presentation 

46 RANDOMIZE TIME 


90 REM----— 
66 REM---dessin du cadre--- 
70 REM------— 
8 CLS 

96 INK 1,8 


169 DIM a(8i) ,nombre(8i),n(81i) 

119 PAPER 2 

120 PEN 2:FO0R l1i=3 TO 23:LOCATE 19, 
li: PRINT" "sNEX 
T:PAPER 3 

136 FOR h= TO 4 

149 LOCATE 19,h+3+4#h: PRINT" 


150 NEXT 

169 FOR n=0 TO 28 

170 FOR v=ù TO 4 

180 LOCATE v+19+4#v, 3#n: PRINT " 
190 NEXT 


>XK£ 
>TEK 


+TD< 


DTEX 
dEF< 


>CH< 
MX 
x 
PL 


290 NEXT FC 
210 REM------ ?DD< 
220 REM--ecriture des 16 lettres a PE“ 
leur place respective--- 
230 REM------ FF 
24ÿ PAPER O:FEN 2 ?NG£ 
250 y=-i >EH< 
266 FOR i=ÿ TO 15 iCJ< 
276 x=25+(i MOD 4)x5 2FE< 
286 IF i MOD 4=0 THEN y=y+5 ?FL£ 


290 LOCATE x,y:PRINT CHR$(65+i) #RM< 


390 NEXT #6D< 
319 REM----—-—------ ?NE< 
320 REM---regles du jeu--- 6F< 
330 REM----—--— 06: 
340 LOCATE 1,5:PEN 1:FRINT"Dans cha >NH< 
que case" 


396 PRINT"se cache un nombre":PRINT >AJ< 
“de 1 "+CHR$(201)+" 16." 

360 PRINT:PRINT: PRINT" Pour le faire >MK< 
“s PRINT "appara"+CHR$ (202)+"tre, ":PR 

INT "appuie sur":PRINT"la lettre":P 
RINT'correspondante. " 


$/8 PRINT:FRINT:PRINT'Evidemment.": : 


PRINT"les nombres":PRINT'doivent ap 
para"+CHR$ (262) +"tre":PRINT'"dans 1° 
ordre," 

386 CALL &BE66 

396 FOR ef=5 TO 24:LOCATE 1.ef:PRIN 
qe Me NEXT 

496 FEN Z:LOCATE 1,4:FRINT"On peut 

jouer "+CHR$(261):PRINT'un ou deux 

joueurs" 


410 PRINT: PRINT:PRINT'"Combien "+CHR : 


$(294)+"tes-vous":FRINT" 
424 FEN i 

450 k$=INKEYS: IF k$="" THEN 436 

446 IF k$="1" THEN 45ÿ ELSE 479 

450 LOCATE 8,19:FRINT k$:nj=1: flag= 
1:PRINT:PRINT:FRINT"'Quel est ton no 
m ©": PRINT 


(1 ou 2) 


466 xx=POS (#0: yy=VPOS (#0) :GOSUE 16 > 


96:n$(1)=nn$:GOTO 536 
476 IF k$="2" THEN 486 ELSE 436 


480 LOCATE 8,16:FRINT k$:nj=2:FRINT 


! PRINT: PRINT: PRINT: PRINT"'Nom du jou 
eur N'+CHR$(205)+" 1" 


496 xx=POS (#0) : yv=VFOS (#0) : GOSUE 16 : 


96:n$(1)=nn$ 


999 PRINT:PRINT'Nom du joueur N"'+CH 


R$(2ÿ5)+" 2" 


919 xx=P0S (#6) : yy=VPOS (#9) : GOSUB 186 : 


96:n$(2)=nn$:GOTO 536 
929 GOTO 436 


930 nj=nj-1:FOR w=i TO 1900: NEXT we: à 


FOR ef=4 TO 24:LOCATE 1,ef:PRINT SF 
ACE$ (18) :NEXT 

044 IF K$="{" THEN LOCATE 1,8:FRINT 
"A toi de jouer, ":PRINT UFFERS (n$): 
GOTO 576 

990 no=no+i:LOCATE 1,B:PRINT'A toi 

de jouer, ":PRINT UPPERS (n$ (no) ) 


979 REM---attribution d'un nombre 
par case--- 


999 LOCATE 1,1 
600 FOR a=ÿ TO 1 
biÿ nombreia)=a 
620 NEXT 

639 v=ié 

649 FOR a=ÿ TO 15 

b5È x=INT (RND(1)#v)+1 

bb d=nombre(x}+1 

67ÿ n(a)=d 

68% nombre (x) =nombre (v) :v=v-1 
696 NEXT 

709 REM------- 
710 REM---programme principal--- 


en 


730 nosbjuste=i 


33 


?BN< 


HJE 


DA 
STK< 


3VK£ 


#DL< 


2MM< 
?CN< 


2PP£ 
EU: 
?RG< 
?MJ< 
#NK< 
2UL£ 
?CM< 
Né 
?EP< 
C0 
}VR 
>KH£ 
?FJ< 
>MK< 
?TL< 


749 LOCATE 1,15:PRINT"nombre de cou 
ps":LOCATE 7,18: FAFER Z:FRINT coupi 
no} 

759 HHILE nombjustei17 

768 PAFER Z:PEN 1 

770 coup inoi=coup ino}+i 

789 E$=INÉEYS: IF k$="" THEN 786 

790 IF ASCUFFERS(k#))<65 OR ASC UF 
PERS (K#) 06 THEN 780: cas où la 1 
ettre n'est pas dans le cadre (entr 
e A et F) 

860 1=ASC(UPFERS (ES) à -85 


5 ou le nombre est deja affiche 


826 x=20+(1 MOD 4)#5:v=é+i+l\4- (1 M : 


OD 4) 
836 LOCATE 7,16:PRINT coupino) 
844 LOCATE x,y:FRINT n{li 


856 IF n(li=nombiuste THEN nombiust : 


e=nomb juste+i:SOUND 1,56,8,8:SOUND 
1.39.6.8:SOUND 1.56.6,8:G0T0 876: 
reponse juste 

B6û FOR w=i TO SOÛ:NEXT:FEN Z:LOCAT 

E x, y: PRINT nombreili:' eftacage de 
la reponse fausse 

870 HEND 


886 PAPER ÿ:1F nié THEN 966 ELSE 9 : 


96 
896 REM---on continue 5 il y reste 
encore un joueur--- 


966 FOR ef=5 TO 23:LOCATE 1,ef:PRIN ZE 


T SFACES (18) :NEXT:FAFER 1° 
e du texte de gauche 
910 FOR ef=ÿ TO 15 


effacag 


929 x=21+(et MOD 4)45:v=bteftefi4-( : 


ef MOD 4) 

36 LOCATE x,:PRINT" 
acage des 1 nombres trouves par le 
premier joueur 

940 FAFER à 

996 G60TO 536 

QbË REM---—----------- 

970 REM---resultats--- 


999 FOR w=1 TO 2606: NEXT à 

1900 FAFER 1:PEN G:CLS 

1919 IF flag=i THEN 1930 ELSE 1129 
1929 ‘ resultat si un seul joueur 


1930 LOCATE {,12:PRINT UPFERS(n$(1) : 


};", tu as mis";coupino): "coups." 


1649 IF coupino){21 THEN PRINT:FRIN : 


T:PRINT".., et je peux dire que tu 

m'"+CHR$ (206) +'pates 11" 

1956 IF coup(noi:26 AND coup (no) :2ë 
THEN PRINT:PRINT:FRINT"... bravo, 
c'est tr'+CHR$(203)+"s bien ‘!i" 
1968 IF coup(no)>25 AND coup (no) £35 
THEN PRINT: PRINT: PRINT" …. P 

as mal du tout !!!" 


34 


MiNEXT:' eff : 


FYMe 


FNN° 
AP< 
#G0< 
FYRE 
ALTE 


FEJ< 
81ë IF nliénombiuste THEN 786:° ca AE 


>VG< 





LG 


?WH£ 


1976 IF coupino)>34 AND coup (no) {45 :HJ4 
THEN PRINT:PRINT:PRINT" tu pe 

ux sans doute faire mieux ..," 

1986 IF coup (noi :44 AND coup(no:55 ME 
THEN PRINT: PRINT: PRINT" ssl al 

vu d'sCHR$ (260) ;"j":CHRS (261) 5" vu 
beaucoup mieux..." 

1699 IF coup(no);54 THEN PRINT:PFRIN 3AL< 
T:PRINT"...c'est vraiment beaucoup 

trop !I!" 

1194 GOTO 1236 FRCÈ 
1119 REM resultats si deux joueurs :VD< 
1126 LOCATE B,6:PRINT'ET VOICI LE P QE“ 
ALMARES": LOCATE 8,7: PRINT "======22= 

1136 LOCATE 3,14: PRINT UPPERS ing (li >QF: 
}:LOCATE 25,16:FRINT coup iii: "coups 

1148 LOCATE 3,12:FRINT UFFERS(n$ (2) :Y64 
}:LOCATE 25,12:PRINT coup (2): "coups 

1158 IF coup(i);coup (23) THEN mn$=UF :2H: 
PERS (n$ (1) ):G0T0 1196 

1166 IF coup(2);coup(ii THEN mn$=ÙF :BJ< 


PER$ (n$(2}):G0TD 1196 


1178 LOCATE (36-LEN(n$(1))-LENn$ CZ *0E< 


D))\2,18: PRINT UFFERS(n$(1))5" et " 
+ UPPERS (n$ (2) ) 

1189 PRINT:FRINT" 

5 À EGALITE !":60T0 1239 


1194 LOCATE 12,18:FRINT'LE VAINGUEU :CM< 


R EST':LOCATE (49-LEN(mn$) }\2,24:PR 
INT an$ 

1200 REM---------"------- 

1219 REM---fin de partie--—- 

1220 REM--————— 

1236 CALL &BB66:CLS 

1246 FAPER G:PEN 2:CLS 


1258 LOCATE 1,12:PRINT'Une autre pa : 


rtie (O/N) * “: 
1266 E$=INKEYS:IF k$="" THEN 126û 
1274 PEN 1 


1289 IF UFPER$(K$)="0" THEN PRINT'"O ; 


UI":FOR w=1 TO 30: NEXT:CLEAR:GOTO 

85 

1296 IF UFFERS(ES)="N" THEN FRINT'N 

ON": FOR w=1 TO 366: NEXT:CLS:FEN 1:C 

ALL %BC92:END 

1369 GOTO 1266 

1319 REM---—- 

1320 REM---redefinition des lettres 
accentuees--- 

1339 REM----—- 

1349 SYMEOL AFTER 284 

1359 SYMEOL 266,12,24,60,102, 126,96 

60 

1360 SYMBOL 201,48,24,126,12,124,26 

4,118 

1376 SYMBOL 202,24,36,56,24,24,24,6 


VAINQUEUR : 


#DN£ 


#XE< 
#JF£ 
PG< 


LH: 
>PJX 
>KK 
>QL 


#MM€ 





[5] 

1386 SYMEOL 247,40,24,66, 192, 126,96 :EN< 
89 

1399 SYMEOL 264,24,36,60,162,126,98 AP: 
6ÿ 

1406 SYMEOL 265.48, 126,72,126, 48 2XF< 
1418 RETURN MG 
1420 REM-<=5-= eee FVHE 
14356 REM---presentation--- #NJ< 
1446 REM---—- sXE< 
1456 MODE 6 #QL£ 
1469 INK 2, 11,24: INE 3,6,19:INE 4,1 :DM< 
ë,17 


1476 FOR t=@ TO Zôû STEP S:ORIGIN 3 :FN< 
29,360: GRAPHICS FEN t MOD 3+2:DRAM 

COS it) +256, SIN CE) #06: NEXT 

1486 ORIGIN 6,6: GRAPHICS FEN 1 +DP* 


1490 tité=" ERIOMEW" M0: 
1506 TAG *EG{ 
1519 FOR j=0 TO 14 STEF 2 ;EHc 


1528 FOR 1=1 TO 396-18*j STEF 5 #EJé 
1538 FRAME 2NEE 
1549 MOVE 1,166:PRINT MIDS(EIES, j+i KL 





213 

139 NEXT i,j SAM: 
1569 TAGÜFF 3 IN 
1978 FOR mu=i TO i8 LP 
158% REAL note.duree AE 


1594 SOUND Î,note, duree: SOUND Z,no+ :2R« 
S, duree: SOUND 4,note+i, duree 

1669 NEXT NH 
1618 DATA 86,24,0,4,06,12,0,4,66,12 5KJ< 
,5,4,89,24,0,4,86,24 


1628 DATA 71,48, 80,48 JEK< 
1630 DATA 0.4,80,24,6b. 24,80. 74.89, >TLé 
24,95, 24,86, 34 


1640 FOR w=i TO 2666:NEÏT w :DM< 
1655 MODE 1 FUN 
1668 INÉ 2,26:INE 3,6: BORDER 11 ?CF< 
1879 RETURN :WO< 
168% ‘ rentree des noms par INKEY$ JR 
1696 curtr$=CHR$ (22) +CHR$ (1) +CHR$ (9 HT< 
5)+CHR$ (22) +CHR$ (D) 





1766 nn$="":k$="CLEAR INPUT DJ 
1719 LOCATE xx,vy: PRINT curtré #YE< 
1726 WHILE K$<:CHRS (13) #JLi 


1739 KS=INEEYS:IF k$="" THEN 1730  :UM< 
1746 IF LEN(nn$):ié THEN 1784 EN 
1756 IF K$=CHR$(127) AND nn$<i;"" TH :CP< 
EN LOCATE xx+LEN(nn$),yy:FRINT CHR$ 
(8)+" “enn$=LEFT$ (nn$, LEN(nn$i-1) 
1769 EK$=UPPERS (k$) : ask =AGC(KKS: 2 IF X06 
(ask:64 AND ask<91) OR ask=52 OR a 
sk=45 THEN nn$=nn$+k$ 
1776 LOCATE xx, yy:PRINT nn$tcurtr$ KR 
1786 WEND ET 
1796 LOCATE xx+LEN(nn$) , yy: PRINT" "TU 


1806 RETURN #QK< 


2CHAOmTUY 


extension 256K 


Version RAM : augmente de 256 K la capacité mé 
moire de votre CPC 

version silicon disk: permet le travail sur fichiers 
comme sur un disque normal mais avec un temps 
d'accès hyper-rapide 

extension 256 K RAM: 

pour CPC464-664.. 

pour CPC 6128 

extension 256 K silicon disc : 
Clpour CPC 464-664 

Cpour CPC6128. 





999 F 
999F 

















....999F 
..999F 


extension 256 K RAM 


Que ce soit en traitement de texte, gestion de fichier 
ou tout autre application cette extension mémoire vous 
permettra d'être plus “à l'aise” et vous évitera d'in- 
cessants accès disque. 

extension 256 K : 

Cpour PCW 8256 


Extension 64 K 


Avec cette extension votre CPC 464 (ou 664) pourra, 
lui aussi, faire tourner DBASE Il, multiplan ou sim- 
plement vous permettre d'être moins “à l'étroit” pour 
vos propres programmes 
Extension 64 K : 
Clextension 64 K 





499F 


Interface manette + 
synthétiseur 


Interface joystick + contrôleur de son: 
En plus de la possibilité de brancher un joystick, vous 
avez la possibilité de créer des sons ou de la musique 
sur 3 canaux et 8 octaves. De plus un port entrée/ 
sortie vous permet le contrôle d'appareils externes. 
Interface manette + synthétiseur : 

Cpour PCW 


Grâce à ce synthétiseur votre Amstrad va enfin pou- 
voir s'exprimer. Très simple à programmer il donnera 
un “plus” de qualité à vos programmes. Son origine 
anglaise lui vaut de conserver cet accent même lors- 
qu'il parle en français. Livré avec haut-parleur. 
synthétiseur vocal 
{avec qi en ROM 
pour CPC6128 ; 
pour CPC 464 664. 
synthétiseur vocal 


{avec logiciel en nbaet eu 
Cpour CPC 464-664 . 





499F 
.499F 

















.449F 


Interface manette 


Enfin vous allez pouvoir jouer sans “tricoter” avec 
vos doigts sur le clavier. Vous pourrez également 
utiliser le joystick dans votre propres programmes 
que ce soit en basic ou sous CP/M. 

Interface manette : 

Dlinterface joystick PCW pe as 
Dinterface joystick + joystick magnum 


Tous les produits DK TRONICS pour Spectrum fonctionnent sur les modèles 48 K, 128 K et 128 K'° + 2" 


Interface centronics 


Le complément indispensable de votre Spectrum. Vous 
allez enfin pouvoir utiliser les instructions LPRINT 
{ou L LIST) mais aussi faire des copies d'écran sur 
imprimante. 

Interface centronics : 

Uinterface centronic 


synthétiseur vocal 


Grâce à ce synthétiseur votre Spectrum va enfin 
pouvoir vous parler. Très simple à utiliser, il vous 
étonnera par sa capacité de parler en français, alle- 
mand, espagnol, anglais... avec, malgré tout, un typi- 
que accent anglais. Livré avec haut-parleur. 
Synthétiseur vocal : 

Csynthétiseur vocal 


Exploitez pleinement les capacités sonores et musicales 
de votre spectrum! Cette interface vous permettra 
de créer un bruit d'explosion ou de tir laser tout 
autant qu'une symphonie ou le dernier “tube” à la 
mode, livré avec haut-parleur. 

Synthétiseur musical : 

Csynthétiseur musical 


22, rue de Montreuil 94300 VINCENNES - Tél.: (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


Crayon optique 


Exploitez pleinement et facilement les capacités graphi- 
ques de votre Amstrad. Avec ce crayon vous dessi- 
nerez encore plus facilement que sur du papier grâce à 
de nombreuses fonctions (cercle, ligne, carré, trait fin, 
gras, aérographe..). Vous pourrez même signer vos 
chefs d'œuvre! 

crayon optique [avec PCR en sr 
pour CPC 464 664 
pour CPC6128 


crayon optique [avec logiciel sur 


assette) : 
Cpour CPC 464 664 














2886 








269F 


extension horloge 


Cette extension va vous permettre d'avoir en perma- 
nence non seulement l'heure à la seconde près mais éga- 
lement le jour de la semaine et la date du jour. De 
plus un système d'alarme programmable vous évitera 
de rater l'heure de l'apéritif ou du film à la T.V. 
Grâce à des piles (non fournies) cette extension 
restera active même lorsque vous aurez arrêté votre 
PCW et gardera en mémoire les instructions que vous 
aurez programmées dans ses 50 bytes de RAM non 
volatile. 

extension noms : 


Cpour PCW ..499F 


crayon optique 


Les capacités graphiques de votre spectrum sont 
indéniables mais peu faciles à utiliser en basic. Grâce 
à ce crayon optique vous aurez enfin le moyen de 
réaliser des chefs d'œuvre. De nombreuses fonctions 
(carré, cercle, colorer, effacer, fin, gras...) vous faci- 
literont la tâche et font de ce produit une bonne 
initiation au D.A.0. 

Crayon optique : 

crayon optique 














COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 Fc de 500 à 1000 F, 60 F pour achat supérieur à 1000 F) 
JEPOSSEDE: EICPC6128 CICPC464 CICPC664 CIPCW8256 COIPCW8512 CJSPECTRUMA48K  [] SPECTRUM128K 


NOM 


- ADRESSE 
Mode de paiement : [] chèque / 





TÉL. 
mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : 


CODE POSTAL VILLE 
ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 
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